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ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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VERSION *'C’', INCLUDES SIZING FOR THE MNCTP (TC AMP) WHICH S, 

AN OPTION, SIMILAR TO THE MNCAM (MUX) AND MNCAG (PREAMP) TO THE 

SE OF THE MINC=11 SIZER PROGRAM IS TO VERIFY THE 
GURA INC-11 HARDWARE. THE PROGRAM IS TO BE 

USED TO joa FY THE CORRECT POSITION OF ANALOG CHANNELS, pe 
ADDRESS AND VECTOR SWITCHES. THE PROGRAM S te THE NUMBER 


WO ADD PORTS 
THE FIR S_THE MODE OF THE MNCAD (A/D) CHANNELS. THE 
DETECTINGECOND IS THE ADDRESS USAGE MAP WHICH IS USEFUL IN 
A INCORRECT ADDRESS SWITCH SETTING, TOTAL PROGRAM CONTROL IS 
ACCOMPLISHED THRU THE CONSOLE TERMINAL VIA THE PROVISIONS OF 


2.0 REQUIREMENTS 


am 
= 
_ 


2.1 EQUIPMENT 


1. PDP11/03 COMPUTER OR LSI-11_ PROCESSOR 
2. DLV11 WITH I/0 TERMINAL (LA36, VT100, ETC.) 
3. MINC=11 SYSTEM 


2.2 STORAGE 
THE PROGRAM USES THE LOWER 4k OF MEMORY. 
3.0 LOADING PROCEDURE <XXDP> : 


1. ENSURE THAT THE DIAGNOSTIC LOAD MEDIA IS INSTALLED IN DRIVE 0. 

2. BOOT THE MEDIA BY TYPING *1735000G'' IF IN THE ODT MICRO-CODE 
STATE OR CYCLING THE POWER ‘ON-OFF'’ SWITCH 

3. UPON SUCCESSFUL BOOTING OF THE LOAD MEDIA, THE XXDP MONITOR 
WILL IDENTIFY ITSE_F AND INFORM THE OPERATOR OF THE OPERATING 
OPTIONS yan MAYBE SELECTED. 

4. THE OPERATOR SHOULD TYPE ‘R VMNF??°* FOLLOWED BY A ‘RETURN’ 
THE XXDP MONITOR WILL LOAD THE PROGRAM INTO MEMORY AND START 
THE PROGRAM AT LOCATION 200. 


4.0 STARTING PROCEDURE 


1. THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 

2. THE PROGRAM WILL NOW ASK IF THE OPERATOR WANTS THE REPORT 
OF THE MODES OF THE MNCAD (A/D) CHANNELS. 

3. THE PROGRAM WILL NOW ASK IF THE OPERATOR WANTS THE REPORT 
OF THE ADDRESS USAGE MAP. 

4. THE PROGRAM WILL THEN SIZE THE MINC-11 SYSTEM AND REPORT 
THE DEVICE BUS AND VECTOR ADDRESSES AND SELECTED REPORTS. 


4.1 PROGRAM START 


200 STARTING ADDRESS OF THE PROGRAM 
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8.0 


SOFTWARE SWITCH REGISTER 


NONE 

PROGRAM CONTROL 

THE SIZING MAYBE STOPPED BY TYPING THE ‘CONTROL &@ ("’ 
KEYS. THIS OPERATION WILL STOP THE PROGRAM AND ENABLE 
THE OPERATOR TO SELECT DIFFERENT PROGRAM REPORT'S. 


ERROR REPORTING 


NONE, NO ERROR MESSAGES ARE REPORTED. 
MISCELLANEOUS 


MINC=11 BUS ADDRESS MODIFICATION 


MODIFY LOCATION ‘S$BASE" (LOC. 1240) IF BASE BUS ADDRESS IS NOT 171000. 


XXDP/APT NOTES 


THIS PROGRAM IS CHAINABLE UNDER XXDP (REQUIRES 8k OR MORE) 

WHEN RUN IN "‘CHAIN'' MODE, THE PROGRAM WILL REQUIRE THE OPERATOR 

TO PERFORM INITIAL SETUP OPERATIONS. THE SIZER PROGRAM SHOULD 

ed BE INCLUDED IN A ‘‘CHAIN’' THAT LOOPS TO THE STARTING FILE. 
HIS PROGRAM DOES SUPPORT ‘‘APT’’ BUT HAS NOT BEEN RUN UNDER IT. 


POWER FAIL 

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 
MULTIPLE MINC-11 OPTION INTERFACE TESTING 


THIS PROGRAM DOES ‘‘AUTO-SIZE"’ THE NUMBER OF MINC-11 OPTIONS CONNECTED. 
THE ten a "eg Wh OS (ADDS. UP TO: 


8 MNCKW (CLOCK) 'S 

8 MNCAA (D/A) 'S 

8 MNCDO (DIGITAL OUT)'S 
8 MNCDI (DIGITAL IN)'S 


EACH MINC-11 OPTION MUST BE CONFIGURED WITH CONTIGUOUS BUS ADDRESSES. 
RESTRICTIONS 

ALL USER CONNECTIONS MUST BE REMOVED. 

EXECUTION TIME 


DEPENDANT UPON TERMINAL SPEED AND REPORTS SELECTED. 
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EXAMPLE REPORT 


ep Ghee ee ee 


A "'TYPICAL’’ SIZER REPORT FOR A SYSTEM WITH THE FOLLOWING: 


171000 MNCAD 171020 MNCKW 
171060 MNCAA 171160 MNCDI 
DO 171420 IBV-11 


171260 MNC 
173000-173776 ryt ag PROM 
176500-176526 SLU_O, AND 2 
177170 Rx02 615K SUBSYSTEM 
177560=177566 CONSOLE TERMINAL 


PRRRRAAARAAASLALALALALA SALAS ASRR AAA RA RA SARA RAAAR ASRS ALES SD 


DO YOU WANT THE ad (A/D) CHANNEL — REPORT ? 


YPE “— . FOR YES = 
DO YOU WANT THE nEMORY USAGE MAP REPORT ? 
YPE ‘'y'' FOR YES = 
>MNCAD AT ADDRESS = 171000 VECTOR = 400 
0 - 7 SINGLE ENDED 
10 = 13 DIFFERENTIAL 
14 = 47 PR 
20 = 27 TC 
sMNCKW AT ADDRESS = 171020 VECTOR = 440 
s;MNCAA AT ADDRESS = 171060 VECTOR = ** DOES NOT EXIST ** 
:MNCDI AT ADDRESS = 171160 VECTOR = 120 
;MNCDO AT ADDRESS = 171260 VECTOR = 340 


# OF sMNCAD 1 ;MNCKW 1) = ;MNCAA 1) = ;MNCDI 1—=«==MNCDO 1 


MNC11 MEMORY USAGE MAP (EACH BIT = 2 ADDRESSES) 
ADDR 000/400 200/600 300/700 
sia aia ia aia a a4 


a ae a a ed ed eed ed ed eed esd ed 
8 


6000 0000000000000000 
176400 0000000000000000 111111 0000000000000000 0000000000000000 
177000 0000000000000000 0000000000000010 0000000000000000 0000000000000000 
177400 0000000000000000 0000000000001100 0000000000000000 0000090000000000 


END PASS # 1 


ATTACHED 


SEQ 0005 


fa 
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-TITLE MAINDEC-11-CVMNF -C 
z*COPYRIGHT (C) 1981 
:*DIGITAL EQUIPMENT CORP. 

; #MAYNARD , MASS. 01754 


; #PROGRAM BY R SHCOP 


THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
T*PACKAGE (MAINDEC=11-DZQAC-C4), 31 JULY 1980. 
oe 


“SBITL BASIC DEFINITIONS 
{INITIAL ADDRESS OF THE STACK POINTER *** 1100 *«* 


STACK= 

-EQUIV. EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;sBASIC DEFINITION OF SCOPE CALL 
3 *MISCELLANEOUS DEFINITIONS 
HT= 11 :CODE FOR ayy TAB 


MINC=11 OPTION SIZER PROGRAM 


LF= 12 CODE FOR LINE FE 

CR= 15 , ;;CODE FOR CARRIAGE RETURN 

CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 3;PROCESSOR STATUS WORD 


3;STACK LIMIT REGISTER 

3;PROGRAM INTERRUPT REQUEST REGISTER 
3 HARDWARE SWITCH REGISTER 

DDISP= 177570 3 HARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 3:GENERAL REGISTER 


R1= %1 3; GENERAL REGISTER 
R2= %2 3; GENERAL REGISTER 
R3= %3 3: GENERAL REGISTER 
R4= %4 32GFENCRAL REGISTER 
R5= x5 7; GENERAL REGISTER 
R6= %6 3: GENERAL REGISTER 
R7= %7 ;:GENERAL REGISTER 
SP= %6 : STACK POINTER 
PC= %7 PROGRAM COUNTER 
*PRIORITY LEVEL DEFINITIONS 

: PRIORITY LEVEL 0 
PR1= 40 ::PRIORITY LEVEL 1 
PR2= 100 : PRIORITY LEVEL 2 
PR3= 140 > PRIORITY LEVEL 3 
PR4= 200 PRIORITY LEVEL 4 
PRS= 240 7 PRIORITY LEVEL 5 
PR6= 300 : PRIORITY LEVEL 6 
PR7= 340 : PRIORITY LEVEL 7 
3*""SWITCH REGISTER’’ SWITCH DEF INI TIONS 
Sw15= 100000 
SwW14= 
SW1i3= 20000 


SWi2= 10000 


z 
aR 


3 
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BASIC DEFINITIONS 


SWw11= 4000 
Sw10= 000 
SwO9= 0 
SswO8= 400 
SwO7= 200 
SwO6= 1 
swOS= 40 
SwO4= 20 
SwO3= 10 
SwO2= 4 
Swoi= 2 
SwO0= 


“EQUIV SWwWOO.SWO 


BIT15= 


2000 
BITO9= 1000 
B1T08= 
BITO07= 200 
BITO6= 100 
BITOS= 40 
BITO4= 20 
BITO3= 10 
BITO2= 4 
BITO1= 2 
BITOO= 1 


“EQUIV BITOO.BITO 


;*BASIC ‘'CPU'' TRAP VECTOR hs w yy 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 
: RESERVED AND ILLEGAL INSTRUCTIONS 


:: TRACE TRAP 





SEQ 0008 


oy a 









MAINDEC~11~CVMNF~C 
CVMNFC.P11 — 10=JUL~81 
a) 000014 
a) 900020 
G) 000024 
a) 000030 
cD 000034 
(1) 
(1) 000240 
14 171000 
15 000100 
18 000100 000104 
18 
19 
20 000000 
21 
22 
23 
24 
25 
35 
36 


000200 
37 000200 000137 


go -11 OPTION SIZER PROGRAM MACY11 306(1065) 14-JUL-81 15:01 PAGE 1-2 
BASIC DEFINITIONS 


14:27 


000200 000002 


001324 


BPTVEC= 14 
IOTVEC= 20 

PWRVEC= 24 
EMTVEC= 30 
TKVEC= 60 


PIROVEC= 240 

ABASE= 171000 
7100 
- WORD 
~SBTTL 


BREAKPOINT TRAP (BPT) 
: INPUT /QUTPUT TRAP (IOT) **SCOPE** 
: EMULATOR TRAP (EMT) **ERROR®* 
27 TRAP 


TITTY KEYBOARD VECTOR 
ae PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 


104,200,2 7B EVENT VECTOR 
TRAP CATCHER 


-=0 

; ALL str a iy LOCATIONS FROM 4-776 CONTAIN A ‘'.+2°* 
1e* 

:*AND INTERRUPTS TO THE WRONG 

zsLOCATION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 

** 


2 
JMP 


BEGIN 


RO’* SEQUENCE TO ——- INTERRUPTS. 


;START ADDRESS 


C 


< 





MAINDE C=11=CVMNF =C MINC=11 OPTION tie PROGRAM MACY11 3061063) 14-JUL-81 15:01 PAGE 2 


CVMNFC.P11 10-JUL=81 14:27 1 HOOKS SEQ 0010 
39 ; -SBTTL ACT11 HOOKS 
3} 3 LE RRR ERR ARRRERERETE ETE ERE ER REE 
(12 sHOOKS REQUIRED BY ACT11 
(Ye. 000204 SSVPC=. SAVE PC 
(1). 000046 -=46 
5 000046 leatel a 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$SEOP 
( 0000 .= 
(1) 000052 000000 -WORD 0 eg LOC. rt TO ZERO 
(1) 000204 -=$SVPC 33 RESTORE P 
40 001000 -=1000 ° 
* -SBTTL APT PARAMETER BLOCK 
35 pL RRR REE EERE ERE ERE EERE EERE 
(1) :SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) LRA RRR ERRATA REE ERE Re 
(1) 001000 . $X=. hy CURRENT LOCATION 
(1) 000024 .=24 3zSET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 <90 2 FOR APT START UP 
(1) 000044 2s sPOINT TO APT INDIRECT ADDRESS PNTR. 
(1) 000044 001000 SAP); ; POINT TO APT HEADER BLOCK 
(1) 001000 -=. 5X sRESET LOCATION COUNTER 
(2) OC naengenig een) ape gor agemnnmnengesn teagan emer 
(1) ;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
os ; INTERFACE SPEC. 
(1) 001000 SAPTHD: 
(1) 001000 000000 $HIBTS: .WORD 0 :TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 001002 001164 SMBADR: .WORD S$MAIL : SADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 001004 002260 STSTM: .WORD 1200. 37RUN TIM OF LONGEST TEST 
(1) 001006 000764 SPASTM: .WORD ps tye TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 003244 SUNTT™- WORD 1700. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 00003% . WORD SE TEND-SMAIL/2 3:LENGTH MAILBOX-E TABLE (WORDS) 


| oz 


Se 
MACY11 30G6(1063) 


, 


cz 


MA INDE C=11=CVMNF =C hg -11 OPTION SIZER poe 14=JUL-81 15:01 PAGE 2-1 

CVMNFC.P11 10=JUL=81 14:27 COMMON TAGS SEQ 0011 
. -SBTTL COMMON TAGS 
o FERRARA AERA AERA EERERERAEAERERREAREKEERRE REAR REE 
(1) *THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
3 7*USED IN THE PROGRAM. 
(1) 001100 -=1100 
(1) 001100 SCMTAG: 3START OF COMMON TAGS 
(1) 001100 000000 -WORD QO 
(1) 001102 000 $STSTNM: .BYTE 0 sCONTAINS THE ae 4 NUMBER 
(1) 001103 000 SERFLG: .BYTE 0 3;CONTAINS ERROR FLAG 
(1) 001104 000000 SICNT: .WORD 0 :- CONTAINS SUBTEST. ITERATION COUNT 
(1) 001106 000000 $LPADR: .WORD 0 :sCONTAINS SCOPE LOOP ADDRESS 
(1) 001110 000000 SLPERR: .WORD 0 33 CONTAINS Tota RETURN FOR ERRORS 
(1) 001112 000000 SERTTL: .WORD 0 CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 000 SITEMB: .BYTE 0 3: CONTAINS ha CONTROL BYTE 
(1) 001115 001 : VTE | >sCONTAINS MAX. ERRORS PER TEST 
(1) 001116 SERRPC: .WORD 0 >: CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 001120 000000 $GDADR: .WORD 0 ::CONTAINS ADDRES "GOOD" DATA 
(1) 001122 000000 SBDADR: .WORD 0 33 CONTAINS RESS OF ‘BAD* DATA 
(1) 001124 000000 $GDDAT: .WORD 0 +3 CONTAINS *GOOD* 
(1) 001126 000000 $BDDAT: .WORD 0 ; TAINS * * DATA 
(1) 001130 000000 -WORD QO 7 :RESERVED--NOT TO “BE USED 
(1) 001132 000000 -WORD 0 
(1) 001134 000 $AUTOB: .BYTE 0 3 sAUTOMATIC MODE !NDICATOR 
(1) 001135 000 $INTAG: .BYTE 0 3s INTERRUPT MODE INDICATOR 
(1) 001136 -WORD 0 
(1) 001140 177570 : -WORD DSWR 7sADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: .WORD DDISP 3 zADDRESS OF 1 aoe REGISTER 
(1) 001144 177560 TKS: 177560 3;TTY KBD STATUS 
(1) 001146 177562 $TKB: 177562 :;TTY KBD BUFFER 
(1) 001150 177564 $TPS: 177564 TITTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 eeTTy PRINTER BUFFER REG. ADDRESS 
(1) 1154 i: VTE @ ; CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 00, $FILLS: .BYTE 2 ::CONTAINS # OF a. CHARACTERS or 
(1) 001156 012 SFILLC: .BYTE 12 +2 INSERT FILL CHARS. AFTER A ‘LINE F 
(1) 001157 STPFLG: .BYTE 0 33""TERMINAL AVAILABLE’ FLAG: (BIT<07>=0=YES) 
(1) 001160 077 UES: .ASCII /?/ s QUESTION MARK 
(1) 001161 015 $CRLF: .ASCII <15> 33 CARRIAGE RE TURN 
(1) 001162 000012 SLF: eASCIZ <12> 3sLINE FEED 
(2) J LEAR ARR ERREEEERER EEE EEE EEREEEEEEEERERAEEREEEEEEE 
4 -SBTTL APT MAILBOX-ETABLE 
(3) DLE 
(2) -EVEN 
(2) 001164 SMAIL: 3 ;APT MAILBOX 
(2) 001164 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
(2) 001166 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(2) 001170 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
(2) 007172 000000 ASS: .WORD APASS  ;;PASS COUNT 
(2) 001174 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
(2) 001176 000000 IT: .WORD AUNIT = ;;1/0 UNIT NUMBER 
(2) 001200 000000 SGAD: .WORD AMSGAD ;;MESSAGE peck 
(2) 001202 000000 S$MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
(2) 001204 SETABLE: ;;APT ENVIRONMENT TABLE 
(2) 001204 000 SENV: .BYTE AENV > ENVIRONMENT BYTE 








MAINDE C=11=CVMNF =C MINC-11 OPTION SIZER PROGRAM MACY11 3061065) 14=JUL-81 15:01 PAGE 2=2 MA 
CVMNF C.P11 NO-JUL-81 14:27 APT MAILBOX~E TABLE SEQ 0012 Cv 
(2) 001205 00C SENVM: .BYTE AENVM ;; ENVIRONMENT MODE BITS 
(2) 001206 000000 S$SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001210 000000 $USWR: .WORD AUSWR ;;USER SWITCHES 
(2) 001212 000000 $CPUOP: .WORD ACPUOP ;:CPU TYPE -OPT IONS 
(2) :* BITS 1S-115¢Pu TYPE 
(2) :* 170¢=01 11/05=02, 11/20=03, 11/40=04,11/45=05 
(2) 3* /70= 06.PD ae ,Q=10 
(2) :* BIT 10-REAL TIME CLO 
(2) i* BIT 9=FLOATING Point PROCESSOR 
(2) ;* BIT 8=MEMORY MANAGEMENT 
(2) 001214 000 SMAMS1: .BYTE  AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
(2) 001215 000 $MTYP1: .BYTE AMTYP1 ::MEM. TYPE, BLKA#1 
(2) :* MEM.TYPE BYTE <== (HIGH BYTE) 
ae :* 900 NSEC CORE=001 
(2) 3* 300 NSEC BIPOLAR=002 
(2) 3* 500 NSEC MOS=003 
(2) 001216 000000 SMADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA1 
(2) ;* MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’' ABOVE 
(2) 001220 000 $MAMS2: .BYTE AMAMS2> ;;:HIGH ADDRESS M.S. BYTE 
(2) 001221 000 SMTYP2: .BYTE AMTYP2 ;;MEM. k#2 
(2) 001222 000000 SMADR2: .WORD AMADR2 ::MEM. LAST “ADDRESS ,BLK#2 
(2) 001224 000 $MAMS3: .BYTE AMAMS3 HIGH ADDRESS .M.S.BYTE 
(2) 001225 000 SMTYP3: .BYTE AMTYP3 ;;MEM. TYPE BLK#3 
(2) 001226 000000 $MADR3: .WORD AMADR3 ;:MEM.LAST ADDRESS,BLK#3 
(2) 001230 000 SMAMS4: .BYTE AMAMS4 ::HIGH ADDRESS,M.S.BYTE 
(2) 001231 000 SMTYP4: .BYTE AMTYP4 ::MEM.TYPE,BLKM4 
(2) 001232 000000 S$MADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS.BLKA4 


. | 
: .WORD AVECT1 :: INTERRUPT VECTOR#1,BUS PRIORITY#1 
(2) 001236 000000 $VECT2: .WORD AVECT2 :: INTERRUPT VECTOR#2BUS PRIORITY#2 
SBASE: .WORD ABASE ::BASE ADDRESS OF EQUIPMENT UNDER TEST 
-WORD ADEVM ::DEVICE MAP 
"WORD ACDW1 ::CONTROLLER DESCRIPTION WORDA1 | 
| 
| 
| 
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ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER 


FOUND IN 
:#LOCATION SITEMB. THIS NUMBER wa Ey WHICH ITEM IN THE = # :. PERTINENT. 


MB IS OT 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


N 1 
MINC-11 OPTION SIZER PROGRAM MACY11 306(1063) 14=JUL-81 15:01 PAGE 2-3 
10=JUL=81 14:27 : 


HE ONLY PERTINENT DATA _IS (SERRP 


3;POINTS TO THE ERROR MESSAGE 
:sPOINTS TO THE DATA HEADER 
3;POINTS TO THE DATA 
3:POINTS TO THE DATA FORMAT 


OFFSET FROM $SBASE VALUE TO KW ADDRESS 
OFFSET FROM $BASE VALUE TO AA ADDRESS 
OFFSET FROM $BASE VALUE TO DI ADDRESS 
OFFSET FROM SBASE VALUE TO DO ADDRESS 


SEQ 0013 


PROGRAM CREATES THESE ADDRESSES FROM THE VALUE OF $BASE PLUS THE OFFSET FOR THAT, DEVICE 


zADDRESS VALUE FOR MEMORY USAGE 
[NON-ZERO INDICATES MEMORY USAGE MAP IS WANTED 
sNON-ZERO INDICATES THE A/D CHANNEL MODES BE REPORTED 


;HERE BECAUSE OF SYSMAC 


 *NOT El: IF $I 
i #NOTE2: 
a EM 
;* DH 
7* DT 
:* DF 
SERRTB: 
sNO ERRORS ARE REPORTED 
KWOFF: 20 
AAOFF: 60 
DIOFF: 160 
DOOFF: 260 
ADBASE: 171000 
KWBASE: 171020 
AABASE: 171060 
DIBASE: 171160 
OBASE: 171260 
CUNT OF EACH UNIT FOUND 
ADCNT: 0O 
KWCNT 0 
AACNT 0 
DICNT: O 
DOCNT: O 
sMISC. TEMP LOCATIONS 
VADR: 0 
VECT: 0 
TEMP: 0 
NBEXT: 0 
OUTADR: ADRPOK 
FLAGMP: 0 
FLAGAD: 0 
SWREG: 0 
DISPRE: 0 


HERE BECAUSE OF SYSMAC 
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MAINDEC=11=C C MINC-1 
CVMNFC.P11 10=JUL-81 14:27 INITIAL START=UP,HOUSEKEEPING, AND DIALOGUE SEQ 0014 
79 . SBTTL INITIAL START=UP,HOUSEKEEPING, AND DIALOGUE 
80 001324 5 BEGIN: RESET 
81 001326 012700 001000 MOV #B1T9,RO ;LOAD DELAY COUNTER 
82 001332 005300 50$: DEC RO :DELAY 
83 001334 001376 BNE 50$ ; FOR RESET PULSE TO QUIET THE WORLD 
84 -SBTTL. INITIALIZE THE COMMON TAGS 
(1) 3:CLEAR THE COMMON ng (SCMTAG) AREA 
(1) 001336 012706 001100 MOV ASCMTAG ,R6 3sFIRST LOCATION TO BE CLEARED 
(1) 001342 005026 CLR (R6) + 7zCLEAR MEMORY LOCATION 
(1) 001344 022706 001140 CMP MSWR,R6 ; ; DONE? 
(1) 001350 001374 BNE --6 ;;LOOP BACK IF NO 
(1) 001352 012706 007100 MOV STACK, SP :sSETUP THE STACK POINTER 
(1) pr INITIALIZE A FEW VECTORS 
(1) 001356 012737 010436 000034 MOV AMSTRAP , AA TRAPVEC fag VECTOR FOR TRAP CALLS 
(1) 001364 012737 000340 000036 MOV #340, aATRAPVEC+2;LEVEL 7 
(1) 001372 013737 002622 002614 MOV SENDCT , SEOPCT 1 SETUP ge fter: COUNTER 
(2) szSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
(2) ;;EQUAL TO A’ - SETUP FOR A SOFTWARE SWITCH REGISTER. 
(2) 001400 013746 000004 MOV @HERRVEC ,-(SP) Hy ERROR VECTOR 
(2) 001404 012737 001440 4 MOV #64$ , AMERRVEC SET UP ERROR VECTOR 
(2) 001412 012737 177570 001140 MOV ADSWR ,SWR 1 SETUP FOR A HARDWARE SWICH REGISTER 
(2) 001420 012737 177570 001142 MOV #DDISP, DISPLAY ¢AND A HARDWARE DISPLAY REGISTER 
(2) 001426 022777 177777 177504 CMP #-1, aSWR TRY TO REFERENCE HARDWARE SWR 
(2) 001434 001012 BNE  66$ + BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) S:AND THE HARDWARE SWR IS NOT = -1 
(2) 001436 000403 \ BR 65$ ;;BRANCH IF NO TIMEOUT 
(2) 001440 012716 001446 * 64$: MOV #65$, (SP) 3;SET UP FOR TRAP RETURN 
(2) 001444 000002 RTI 
(2) 001446 012737 001320 001140 65$: MOV ASWREG, SWR :sPOINT TO SOFTWARE SWR 
(2) 001454 012737 001322 0901142 MOV #DISPREG DISPLAY 
st 001462 012637 000004 66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 
(2) 001466 005037 001172 CLLR $SPASS CLEAR PASS COUNT 
(2) 001472 132737 000200 001205 BITB MAPTSIZE ,SENVM TEST USER SIZE UNDER APT 
(2) 001500 001403 BEQ 67$ YES,USE NON-APT SWITCH 
is} pores 012737 001206 001140 678 MOV. . M$SWREG,SWR ZINO,USE APT SWITCH REGISTER 
85 001510 012737 005046 007106 MOV #5046, $TYPE 
86 001516 012737 012746 007110 MOV #12746, $TYPE+2 
87 001524 012737 007120 007112 MOV MSTYPE+12,$TYPE+4 
88 001532 012737 000002 007114 MOV #RTI ,STYPE+6 
89 001540 004737 006204 JSR PC,S$TKINT INIT THE TKB 
001240 001256 MOV $BASE , ADBASE sGET INITIAL BASE 
001256 001260 MOV ADBASE ,KWBASE GET KW BASE 
001246 001260 ADD KWOFF , KWBASE UPDATE KW ADDRESS 
001256 001262 MOV ADBASE ,AABASE ;GET AA BASE 
001250 001262 ADD AAOF F , AABASE ‘UPDATE AA ADDRESS 
001256 001264 MOV ADBASE ,DIBASE ;GET DI BASE 
001252 001264 ADD DIOFF ,DIBASE UPDATE DI ADDRESS 
001256 001266 MOV ADBASE ,.DOBASE ;GET DO BASE 
001254 1266 ADD DOOF F , DOBASE [UPDATE DO ADDRESS 
001270 CLR ADCNT ;CLEAR THE UNIT COUNTERS 
001272 CLR KWCNT 
001274 CLR AACNT 
001276 CLR DICNT 
001300 CLR DOCNT 
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MAINDE C-11=C VMNF =C MINC=11 OPTION SIZER PROGRAM MACY11 3064068) 14-JUL-81 15:01 PAGE 4 |™ 
CVMNFC.P11 10=JUL-81 14:27 TYPE PROGRAM NAME SEQ 0015 C 

105 -SBTTL TYPE PROGRAM NAME 

(1) 3; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

(1) 001656 005227 177777 INC #-1 cB ST TIME? 

(1) 001662 001036 E 68$ ; BRANCH IF NO 

(1) 1664 022737 002654 000042 CMP #SENDAD ,a442 szACT=11? 

(1) 001672 001432 BEQ 68&$ ;:BRANCH IF YES 

(1) 001674 104401 001702 TYPE ,O9$ sz TYPE ASCIZ STRING 

(1) 001700 000427 BR 68$ 32GET OVER THE ASCIZ 

ae 001760 is’? -ASCIZ <CRLF>AMD-11-CVMNF -C MINC=11 OPTION SIZER PROGRAMA<CRLF > 

( : 

106. 001760 105737 001205 TSTB SENVM ;CHECK APT MODE? 

107 001764 001042 4 BNE LOOP é F YES 

108 001766- 005737 000042 TST CHAIN ; CHECK XXDP/ACT MODE? 

109 001772 001405 BEQ 1$ :BR IF NOT 

110 001774 104401 005025 TYPE ~SETMNC ;TELL OPER. ABOUT SETUP STUFF 

111 002000 104407 RDCHR ;GET A CHAR 

112 002002 012600 , MOV -(SP)+,RO ;READ WHATEVER CHARACTER 

113 002004 32 BR LOOP ;RUN TEST WHEN OPER IS READY 

114 002006 104401 004423 1$: TYPE ~QUESAD ;ASK OPERATOR ABOUT A/D MODE 

115 O0C2012 104407 RDCHR ;GET OPER INPUT 

116 002014 012600 MOV (SP)+,RO 3 

117 002016 042700 177600 BIC #177600,R0 sMASK OFF JUNK 

118 002022 005037 001316 CLR FLAGAD ; INIT THE EXPANDED A/D REPORT 

119 002026 122700 000131 CMPB #*Y,RO sCHECK IF ‘'y"’ 

120 002032 001002 BNE 2$ ‘ IF NOT 

121 002034 005237 001316 INC FLAGAD :SET EXPANDED A/D REPORT 

122 002040 104401 004534 2s: TYPE QUE SMP ;ASK OPERATOR ABOUT MEMORY USAGE MAP 

123 002044 104407 RDCHR ;GET OPER INPUT 

124 002046 012600 MOV (SP)+,RO : 

125 002050 042700 177600 BIC #177600,R0 sMASK OFF JUNK 

126 002054 005037 001314 CLR FLAGMP ; INIT THE MEMORY USAGE REPORT 

127 122700 000131 CMPB #'Y,RO sCHECK IF ‘'Y"' 

128 002064 001002 BNE LOOP ;BR IF NOT 

4 002066 005237 001314 INC FLAGMP ;SET MEMORY USAGE FLAG 

131 ;NOW VERIFY THE MNCAD MODULES 

«132 002072 004537 002710 LOOP: a TEST sCHECK THE MNCAD'S 

133 002076 003466 ADGO ADDRESS OF INTR. STARTUP 

134 002100 001256 ADBASE sSTARTING A/D ADDRESS 

135 002102 000004 4 sOFFSET TO NEXT UNIT 

136 002104 004160 ADPRI ;A/D MESSAGE POINTER 

137 002106 000004 4 re . # OF A/D'S ON A SYSTEM 

138 002110 001270 ADCNT 3:4 OF A/D'S FOUND ON SYSTEM 

139 sNOW VERIFY THE MNCKW MODULES 

140 002112 004537 002710 JSR RS5,TEST ;CHECK THE MNCKW'S 

141 002116 003504 KWGO ;ADDRESS OF INTR. STARTUP 

142 002120 001260 KWBASE ; STARTING K/W ADDRESS 

143 002122 4 sOFFSET TO NEXT UNIT 

144 002124 004172 KWPR]I zKW MESSAGE POINTER 

145 002126 000010 8. sMAX. # OF KW ON A SYSTEM 

146 002130 001272 KWCNT 74 OF Kw FOUND ON SYSTEM 
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MA INDE C=11-CVMNF =C MINC- 
CVMNFC.P11 10=JUL-81 14:27 YPE PROGRAM NAME SEQ 0016 
148 ;NOW VERIFY THE MNCAA MODULES 
149 002132 004537 002710 JSR RS,TEST CHECK THE MNCAA 
150 002136 000000 0 3NO_INTR, STARTUP 
151 002140 001262 AABASE STARTING AA_ADDRESS 
152 002142 000010 10 OFFSET TO NEXT UNIT 
153 002144 004204 AAPRI 3AA MESSAGE POINTER 
154 002146 000010 8. ;MAX. # OF AA ON A SYSTEM 
155 002150 001274 AACNT :4 OF AA FOUND ON SYSTEM 
156 NOW VERIFY THE MNCDI MODULES 
157 002152 004537 002710 JSR R5,TEST ;CHECK THE MNCDI 
158 002156 003544 DIGO SINTR. STARTUP ADDRESS 
159 002160 001264 DIBASE STARTING DI ADDRESS 
160 002162 000010 OFFSET TO NEXT UNIT 
161 002164 004216 DIPRI 2D! te ¥" 3 POINTER 
162 002166 000010 ° 7MAX. F DI ON A SYSTEM 
163 002170 001276 DICNT iH OF D1 FOUND ON SYSTEM 
164 ;NOW VERIFY THE MNCDO MODULES 
165 002172 004537 002710 JSR RS,TEST CHECK THE MNCDO 
166 002176 003570 DOGO ;INTR. STARTUP ADDRESS 
167 O0C2200 001266 DOBASE STARTING DO ADDRESS 
168 002202 000004 6 OFFSET TO NEXT UNIT 
169 002204 004230 DOPRI :D0 ‘wry POINTER 
170 002206 000010 8. MAX . # OF DO ON A SYSTEM 
171 002210 001300 DOCNT # OF DO FOUND ON SYSTEM 
176 ;NOW REPORT THE TOTAL COUNT OF EACH MINC-11 MODULE 
174 002212 104401 001161 TYPE »SCRLF FRESH LINE 
175 002216 104401 004271 TYPE eNIPRI ;TELL THE # 
176 002222 104401 004160 TYPE -ADPRI 3A/D 
177 002226 013746 001270 MOV ADCNT ,=(SP) 
178 002232 104403 TYPOS 
179 2234 001 000 -BYTE 1,0 
180 002236 104401 004172 TYPE -KWPR] 3 KW 
181 002242 013746 001272 MOV KWCNT ,~(SP) 
182 002246 104403 TYPOS 
183 002250 002 000 -BYTE 2,0 
184 002252 104401 004204 TYPE -AAPRI :AA 
185 002256 013746 001274 MOV AACNT ,~(SP) 
186 002262 104403 TYPOS 
187 002264 002 000 -BYTE 2,0 
188 002266 104401 004216 TYPE -DIPRI :DI 
189 002272 013746 001276 MOV DICNT,~(SP) 
190 002<76 104403 TYPOS 
191 002300 002 000 -BYTE 2,0 
192 002302 104401 004230 TYPE ,DOPRI :b0 
193 002306 013746 001300 MOV DOCNT ,~(SP) 
194 002312 104403 TYPOS 
195 002314 002 000 -BYTE 2,0 
196 002316 000240 NOP 
197 002320 000240 NOP 
198 002322 000240 NOP 
199 002324 000240 NOP 


oe! 
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MINC=11 OPTION SIZER PROGRAM = MACY11 3064068) 14-JUL=81 15:01 PAGE 6 
14:27 YPE PROGRAM NAME SEQ 0017 
:DETERMINE IF THE MEMORY USAGE MAP SHOULD BE REPORTED \ 
001205 TSTB.) ss SENVM sTEST IF APT \ 
BNE 1$ ‘BR IF YES 
000042 TST ars2 TEST IF XXDP 
001314 TST FLAGMP ‘TEST IF OPER. ASKED FOR MAP 
2$ TBR IF YES 
002576 1$ JMP SEOP ‘BYPASS REPORT 
001314 2$ CLR FLAGMP ‘ENSURE ONLY THE 1ST PASS IT'S REPORTED 
004635 TYPE —_,MNCMAP ‘INFORM THE OPER. THE HEADER 
MOV ERRVEC,-(SP) | :SAVE CURRENT BUS TRAP VALUE 
7 MOV #170000 ,RO [GET 1ST ADDRESS TO MAP 
001312 MOV RO,OUTADR ‘AND SAVE FOR TYPEOUT 
000 MOV #BIT15,R1 ‘PRIME THE ROTATING POINTER 
CLR R2 [CLEAR TEMP MASK 
010514 MOV HADRPOK ,R3 [LOAD MAP BLOCK POINTER 
002556 000004 MOV #4$, ERRVEC ‘LOAD ADDRESS TIMEOUT RETURN 
3$: TST (ROS [TEST THE ADDRESS 
BIS Ri,R2 IF NO TIMEQUT-MARK A 1 
000002 ADD #2.RO UPDATE ADDRESS 
TST (RO) [TEST THE ADDRESS 
BIS R1,R2 :IF NO TIMEOUT-MARK 4 1 
ADD #2.RO [UPDATE ADDRESS 
ccc SENSURE CLEAR CARRY 
ROR R1 ‘MOVE RIGHT 
BCC 3$ ‘BR IF MORE BITS LEFT 
MOV R2, (R3)+ SAVE IN MAP BLOCKS 
CLR R2 ‘CLEAR MAS 


MOV #B1T15,R1 
CMP enter 


BNE 
;NOW REPORT THE MEMORY MAP 
MOV 


#ADRPOK ,RO 
5$: TYPE -$SCRLF 
V OUTADR , = (SP) 
TYPOC 
TYPE -SPACE1 


#2, (SP) 


OUTBIN + (RO) +,-(SP) 
TYPE . SPACE1 
RTS PC 


5 
MOV (SP) +, ERRVEC 
$CRLF 


JMP EOP 
+ a Apo" UPON MEMORY TIME-OUT 


; K 

[LOAD ROTATING BIT 

;CHECK IF MAP BLOCKS FILLED 
:BR IF NOT 


;LOAD MEMORY MAP POINTER 
;REPORT ADDRESS 


;OUTPUT BINARY BITS 


;UPDATE ADDRESS VALUE 
dive as SHED 


;BR T 
RESTORE BUS TRAP VECTOR 


;ADJUST RETURN ADDRESS 


RTI 
; SUBROUTINE TO gs bet FORMAT MESSAGES 


; INSERT A SPACE 


maa ed 





————————— 


MA INDE C=11=CVMNF =C MINC- -11 OPTION SIZER PROGRAM  MACY11 306(106%) 146=JUL=81 15:01 PAGE 7 
CVMNFC.P11 10=JUL=81 14:27 ND OF PASS ROUTINE SEQ 0018 
257 .SBTTL END OF PASS ROUTINE 
) 
(3) TAR RAASRARARBASZAAAAAALALALZALALESZSE ERE RARER ERR R RR RRR RRA RRR ASRS RRS SS SD | 
) [INCREMENT THE PASS NUMBER (SPASS) 
(1) ‘TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 
1) ‘*IF THERES A MONITOR GO TO IT 
(1 :*]F THERE ISN'T JUMP TO LOOP 
(1) 002576 SEOP: 
(2) 002576 000240 NOP 
(1) 002600 005237 001172 INC SPASS :: INCREMENT THE PASS NUMBER 
(1) 002604 042737 100000 001172 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
(1) 002612 005327 DEC (PC) + LOOP? 
(1) 002614 000001 SEOPCT: .WORD 1 
(1) 002616 003022 BGT $DOAGN rz YES 
(1) 002620 012737 MOV (PC)+,a(PC)+  ::RESTORE COUNTER 
(1) 002622 000001 SENDCT: .WORD 1 
(1) 002624 002614 $EOPCT 
(1) 002626 104401 002673 TYPE , SENDMG ;TYPE "END PASS #”° 
(2) 062632 013746 001172 MOV $PASS,-(SP) > SAVE $PASS FOR TYPEOUT 
(2) 002636 104405 TYPDS :GO TYPE==DECIMAL ASCII WITH SIGN 
(1) 002640 104401 002670 TYPE , SENULL : TYPE A NULL CHARACTER 
(1) 002644 013700 000042 $GET42: MOV are2, RO :GET MONITOR ADDRESS 
(1) 002650 001405 REQ $DOA “BRANCH IF NO MONITOR 
(1) 002652 000005 RESET *:CLEAR THE WORLD 
(1) 002654 004710 SENDAD: JSR PC, (RO) *:G0 TO MONITOR 
(1) 002656 000240 NOP +: SAVE ROOM 
(1) 002 000240 NOP 3: 
(1) 002662 000240 NOP SZACT11 
(1) 002664 SDOAGN. 
(1) 002664 000137 JMP a(Pc)+  : RETURN 
(1) 002666 002072 $RTNAD: .WORD LOOP, 
(1) 002670 377 377 000 $ENULL: .BYTE :NULL CHARACTER STRING 
(1) 002673 015 042412 042116 $ENDMG: .ASCIZ <iSoclo>/en PASS’ #/ 
(1) 002700 050040 051501 020123 
(1) 002706 000043 ' 





MAINDEC=1 1=CVMNF =C A hag -11 OPTION SIZER PROGRAM MACY11 eae 14-JUL-81 15:01 PAGE 8 


CVMNFC.P11 10=JUL=81 14:27 END OF PASS ROUTINE SEQ 0019 
244 ; SUBROUTINE TO VERIFY THE BASE AND VECTOR ADDRESSES 
261 002710 012537 003232 TEST: MOV (R5)+,67$ 3GET ord STARTUP ADDRESS 
262 002714 013537 001126 MOV @(R5)+,$BDDAT GET ADDRESS 
263 002720 012537 001302 MOV (R5)+,VADR ;GET ADDRESS OFFSET 
264 002724 012537 003046 MOV at Le 70$ :GET NAME POINTER 
265 0027 012537 001306 MOV (R5)+, TEMP 7GET MAX # OF UNITS 
266 013746 000004 MOV @FERRVEC,-(SP) SAVE ERRVEC 
267 002740 005037 001310 CLR NBEXT ;CLEAR COUNTER 
268 ; ADDRESS Bu, DEVICE TO VERIFY IT EXISTS 
269 002744 012737 003150 000004 is: #2$ ,ERRVEC SET UP _TIME-OUT RETURN 
270 002752 005777 176150 Ts a@$BDDAT ZADDRESS THE UNIT 
271 ‘ sNOW CAUSE Bs INTR, AND FIND THE VECTOR 
272 002756 005037 001304 608: CLR VECT CLEAR VECTOR FLAG 
273 002762 012737 003234 000004 MOV #IOTRD,ERRVEC #SET UP_ INTELL. TRAP RETURN 
274 002770 005737 003232 TST 67$ ;TEST IF NON-INTR DEVICE 
275 002774 001414 BEQ 65$ 7BR IF NOT INTR. DEVICE 
276 002776 004737 003316 JSR PC,FIXVCT ;LOAD VECTOR TRAP 
277 003002 004777 000224 JSR PC ,a67$ ;GO PRIME THE DEVICE 
278 003006 012700 000000 MOV #0,RO0 :PRIME A COUNTER 
279 003012 005046 CLR -(SP) ; LOWER 
80 003014 012746 003022 MOV #66$ ,- (SP) sPS 
281 003020 000002 RTI 
282 003022 005300 66$: DEC RO ;DELAY 
283 003024 001376 BNE 66$ :SOME TIME 
284 003026 005077 176074 65$: CLR @$BDDAT ;LONG ENOUGH DELAY 
285 ;REPORT THE ADDRESS AND VECTOR VALUES ON FIRST PASS 
286 003032 005737 001172 TST SPASS CHECK IF FIRST 
287 003036 001033 BNE 73$ BR IF NOT 
288 003040 104401 001161 TYPE - SCRLF ENSURE FRESH LINE 
289 003044 104401 TYPE [REPORT THE NAME 
290 003046 000000 70$: 0 zsADDRESS OF gi POINTER 
291 003050 104401 004277 TYPE -ATPRI TYPE ADDRESS STARTUP 
292 003054 013746 001126 MOV SBDDAT ,- (SP) :GET ADDRESS 
293 0032060 104403 TYPOS ;REPORT IT 
294 003062 006 001 -BYTE 6,1 
295 003064 104401 004315 TYPE -VTPRI TYPE VECTOR STATUP 
296 003070 005737 001304 TST VECT >CHECH IF INTR OCCURRED 
297 003074 001003 BNE 71$ 7BR IF YES 
298 003076 104401 004242 TYPE -NOPRI TELL OPER. NONE 
299 003102 000404 BR 72$ 
003104 013746 001304 71$: MOV VECT,~(SP) :GET VECTOR VALUE 
301 003110 104403 TYPOS sREPORT IT 
302 003112 003 001 -BYTE 3,1 
303 ; SENSE IF R IF 20 CHECK OPERATOR INPUT ABOUT CHANNEL MODE REPORT 
304 003114 005737 001316 72$: LAGAD 31S CHANNEL MODE REPORT, ENABLED? 
305 003120 001402 BEO IF NOT 


an :BR 
306 003122 004737 003670 JSR PC, TCHANL [REPORT THE CONFIGURATION 
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003314 
000004 
003314 


003314 
175632 


001126 


003202 


003314 
001000 


001304 


Toes 
MACY11 30G6(1063) 
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END OF PASS ROUTINE SEQ 0020 
-BUMP. THE COUNTER AND TEST IF FINISHED? 
73$: INC NBEXT ; INCREMENT UNIT COUNTER 
TEMP ; REACHED MAX? 
BEQ 4$ ::REACHED MAX NO OF UNIT'S 
ADD VADR, $BDDAT :GET NEXT UNIT 
BR 1$ +: TRY NEXT UONIT 
“COME HERE UPON ADDRESS TIME-OUT 
d$: CMP (SP)+, (SP) + :POP 2 WORDS OFF STACK 
TST NBEXT :CHECK IF ANY UNITS 
BNE 4$ [BR IF SOME 
TST $PASS :TEST IF FIRST PASS 
BNE 4$ “BR IF NOT FIRST 
MOV 70$,76$ [GET DEVICE MESSAGE. POINTER 
TYPE ,SCRLF 
a TYPE ;TELL OPER. IT'S NOT THERE 
TYPE ,NOPR I :TELL OPER. NUNE FOUND 
4$: NOP 
NOP 
MOV NBEXT,@(R5)+  ;SAVE THe # OF UNITS FOUND 
MOV (SP)+,ERRVEC = RESTORE ERRVEC 
CLR FLAGAD =CLEAR EXPANDED A/D REPORT FLAG 
67$:  ADGO ZADDRESS' TO DEVICE PRIMER 
: INTELLIGENT INTERRUPT HANDLER 
1OTRD: MOV (SP), TRTO :GET ADDRESS 
SUB #4, TRTO SADJUST VALUE 
CMP TRTO,41000 *CHECK IF VECTOR OR FATAL TRAP 
BLE 2$ ‘BR IF VECTOR 
1$: HALT sFATAL BUS TRAP IN PROGRAM 
2$: MOV TRTO, VECT :LOAD VECTOR 
CLR aS$BDDAT “CLEAR CURRENT UNIT STATUS 
CMP (SP)+, (SP) + 
NOP 
NOP 
RT] SEXIT 
NOP 
NOP 
NOP 
NOP 
TRIO: O 


== I 





MA INDE C=11-CVMNF =C 
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001000 


END OF PASS ROUTINE 


(oy ay TO wi ered 


FIXVCT 


2$: 
3$: 


#2 
#2900_R2 


R1,(RO)+ 
R2, (RO) + 
(R1)+,(R1)+ 
‘aa 


PC 
(RO) +, (RO)+ 
(R1)+,(R1)+ 
(RO) +, (RO)+ 
(R1)+,(R1)+ 
1$ 


; 


oz 


SEQ 0021 


TRAP CATCHER 

;LOAD STARTING ADDRESS 
; LOAD STARTING + aati 
;LOAD "BAD INSTR 

CLEAR Loc. 0 

SCLEAR LOC. 2 

. 


EAR LOC. 12 
STEST IF TKB VECTOR 
BR IF YES 
s TEST. IF — INT. <B EVENT> 
TEST FOR XXDP FLAG VECTOR 
ZTEST IF STARTING ADDRESS 
:BR IF YES 
STEST IF TRAP VECTOR 
IF YES 


;LOAD POINTER 
;LOAD ‘BAD*’ 
:BUMP POINTER 
sDONE ? 

;BR IF NOT 
ZRETURN 
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MA INDE C=11-CVMNF =C MINC- 
14:27 END OF PASS ROUTINE SEQ 0022 


CVMNFC.P11 10=JUL-81 


393 : SUBROUTINE TO PRIME THE MNCAD 
394 003466 012777 000101 175432 ADGO: MOV #101,a$B8DDAT ENABLE INTR. AND START CONVERSION 
395 003474 000240 NOP 
003476 000240 NOP 
397 003500 000240 NOP 
398 003502 000207 RTS Pc SEXIT 
399 : SUBROUTINE TO PRIME THE MNCKW 
400 003504 013700 001126 kKwWGO: MOV SBDDAT RO :GET ADDR. 
401 003510 005200 INC RO 
402 003512 005200 INC RO :MAKE ADDRESS OF CLOCK PRESET BUFFER 
403 003514 012710 177777 MOV #-1, (RO) SLOAD CLOCK PRESET 
404 003520 012777 000161 175400 MOV #161, a$BDDAT | :LOAD RATE, INTR ENABLE AND GO 
405 003526 052777 000400 175372 BIS #BITB,a$BDDAT  =LOAD MAINT CLOCK 
406 003534 000207 RTS PC TEXIT 
407 003536 000240 NOP 
408 003540 000240 NOP 
409 003542 000240 NOP 
410 ; SUBROUTINE TO PRIME THE MNCDI 
411 003544 012777 000102 175354 BIGO: MOV #102,@$BDDAT | ;LOAD INTR. ENABLE AND MODE 
412 003552 052777 004200 175346 BIS #4200, a$BDDAT LOAD MAINT. STROBE 
413 003560 000207 RTS PC TEXIT 
414 003562 000240 NOP 
415 003 000240 NOP 


NOP 
417 ; SUBROUTINE TO PRIME THE MNCDO 
418 003570 013700 001126 DOGO: MOV SBDDAT RO 3;GET ADDRESS 
419 003574 062700 000003 ADD #3,RO  ;MAKE OUTPUT DATA POINTER 
420 003600 105010 CLRB (RO) sENABLE MAINT. STROBE 
421 003602 162700 000002 SUB #2,RO _:MAKE HIGH BYTE hal ADDRESS 
422 003606 112710 000001 MOVB #BITO, (RO) MAINT. STROBE 
423 003612 052777 000100 175306 BIS #BI1T6.a$BDDAT ENABLE INTR. 
424 003620 000207 RTS PC sEXIT 
425 003622 000240 NOP 


NOP 
NOP 


~~ = 


MA INDE C=11=CVMNF =C MINC=11 OPTION S1ZER PROGRAM  MACY11 it 14=JUL-81 15:01 PAGE 12 
CVMNFC.P11 10-JUL-81 14:27 ND OF PASS ROUTINE SEQ 0023 

429 *ROUT INE, TO TYPE OUT A/D CONFIGURATION 
430 “LOAD A CODE OF "0001"' INTO THE GAIN BITS OF CHANNEL 10-77 
431 ‘WHEN READ BArK IN THE inGH 4 BITS OF THE A/D CONVERTED VALUE, THE FOLLOWING 
432 ‘INDICATE THE TYPE OF CHANNEL 
433 : 0000 = SINGLE ENDED MNCAD OR MNCAM CHANNEL 
4% : = MNCTP CHANNEL 
435 : 0010 = DIFFERENTIAL MNCAD OR MCAM CHANNEL 
4% : 0011 = NOT USED CODE 
437 : 0100 THRU 1111 = MNCAG CHANNEL 
439 003630 006737 004122 TCHANL: JSR PC,LDO1CH :PRESET MNCTC CHANNELS 
440 003634 005077 175266 CLR a$SBDDAT *CLEAR A/D STATUS 
441 003640 013702 001126 MOV SBDDAT ,R2 *GET ADDRESS 
442 003644 062702 000002 ADD #2,R ‘MAKE POINTER TO A/D DATA BUFFER 
443 003650 011201 MOV (R2),R1 [READ A/D BUFFER AND CLEAR A/D DONE FLAG 
444 003652 005037 004120 CLR CHB =CLEAR MNCAG COUNTER 
445 003656 005001 CLR S INIT R1 
446 003660 104401 001161 TYPE /SCRLF [LEAVE A BLANK LINE 
447 003664 104401 004332 28: TYPE * SSPACE [MOVE OVER THE LINE 
448 010146 MOV 1,-(SP) *;SAVE R1 FOR TYPEOUT 
(1) 003672 104403 TYPOS *:GO TYPE=-OCTAL ASCII 
(1) 003674 002 .BYTE 2 :: TYPE 2 DIGIT(S) 
(1) 003675 000 ‘BYTE 0 : SUPPRESS LEADING ZEROS 
449 003676 104401 004337 TYPE .MDASH :TYPE A DASH 
450 003702 005277 175220 3$: INC @SBDDAT ‘START CONVERSION 
451 003706 105777 175214 4s: TSTB  a$BDDAT ‘WAIT FOR DONE 
452 003712 100375 BPL 4$ [BR IF NOT 
453 003714 011200 MOV (R2) ,RO :GET CONVERTED VALUE 
454 003716 042700 007777 BIC #7777 ,RO 71S CHANNEL SINGLE ENDED 
455 003722 001004 BNE 5$ *:CHANNEL IS NOT SINGLE ENDED 
456 003724 012737 004343 004044 MOV AMSE,12$ :LOAD MESSAGE POINTER 
457 003732 000431 BR $ 
458 003734 032700 140000 S$: BIT #140000,RO :TEST IF MNCAG CHANNEL 
459 003740 001411 BEQ 6$ [BR IF NOT 
460 003742 062737 000004 004120 ADD #4, CHB [UPDATE NUMBER OF MNCAG DETECTED 
461 003750 062701 000003 ADD #3.R1 [UPDATE CHANNEL VALUE 
462 003754 012737 004401 004044 MOV AMPRMP , 12$ [LOAD MESSAGE POINTER 
463 003762 000417 BR 10$ 

003764 022700 010000 6$: CMP #10000,RO :TEST IF MNCTP CHANNEL 
465 003770 001004 BNE 7 [BR IF NOT 

003772 012737 004412 004044 MOV #MTCMP, 12% [LOAD MESSAGE POINTER 
467 004000 000406 BR 8$ 
468 004002 012737 004362 004044 7S: MOV #MDIF 12% :LOAD MESSAGE POINTER 
469 004010 062701 000003 ADD #3,R1 TUPDATE CHANNEL VALUE 
470 004014 02 10$ 
471 004016 062701 000007 8$: ADD #7,R1 ;UPDATE CHANNEL VALUE 
472 004022 022701 000100 10$: CMP #100,R1 :1S CHANNEL > tASt POSSIBLE CHANNEL 
473 004026 101002 BHI 11$ 
474 004030 012701 000077 MOV #77,R1 “YES, SET TO LAST CHANNEL 
475 004034 11$: 
(1) 004034 010146 MOV R1,-(SP) ::SAVE R1 FOR TYPEOUT 
(1) 004036 104403 TYPOS ::GO TYPE--OCTAL ASCII 
(1) 004040 002 .BYTE 2 :TYPE 2 DIGIT(S) 
(1) 004041 000 "BYTE 0 >: SUPPRESS LEADING ZEROS 
476 004042 104401 TYPE [REPORT THE CHANNEL TYPE 

004343 : “POINTER TO MESSAGE 





_ = ] 


—_—_—_—_—_——_ SO vv 


MAINDE C-1 1=CVMNF =C + ing ha OPTION SIZER PROGRAM MACY11 3064068) 14-JUL-81 15:01 PAGE 12-1 
CVMNFC.P11 10=JUL=81 14:27 END OF PASS ROUTINE SEQ 0024 
478 004046 005201 13$: INC R1 SET CHANNEL TO NEXT SET OF CHANNELS 
479 006050 022701 000100 CMP #100,R1 $ ; DONE? 
480 006054 001412 BEQ 14$ YES 
481 004056 010100 MOV R1,RO GET CHANNEL 
482 004060 000300 SWAB RO [PUT CHANNEL NUMBER IN HIGH BYTE 
483 062 052700 000010 BIS #B1T3,RO :SET STATUS EWABLE BIT 
484 004066 010077 175034 MOV RO, @$BDDAT ;LOAD NTO A/D STATUS REGISTER 
485 004072 032777 000002 175026 BIT #B1T1,a$BDDAT 31S NON-EXSISTENT CHANNEL BIT SET? 
486 004100 001671 BEQ 2s 
487 004102 023727 004120 000025 14$: CMP CHB #25 STEST HOW MANY MNCAG FOUND 
488 004110 103402 BLO 15$ 7BR IF LESS THAN LIMIT 
m4 Barate 104401 006047 198 TYPE -WOWAGS ;TELL OPERATOR TOO MANY DETECTED 
491 004116 000207 TCHANE: RTS PC sEXIT IF DONE 
rp 004120 000000 CHB: 0 NUMBER OF MNCAG DETECTED 
rte ; SUBROUTINE TO LOAD A ‘0001'' INTO THE GAIN BITS OF CHANNEL 10-77 
496 004122 013702 001126 LDOI1CH: MOV SBDDAT ,R2 ;LOAD A/D ADDRESS POINTER 
497 004126 005202 INC R2 MAKE POINTER TO HIGH BYTE 
498 004130 012701 000010 MOV #10,R1 LOAD INITIAL CHANNEL 
499 004134 112712 000077 1$: MOVB #77, (R2) 3LOAD ‘ ESCAPE" 
500 004140 112712 000001 MOVB #1,(R2) LOAD “01 
501 004144 110112 MOVB R1,(R2) LOAD CHANNEL NUMBER 
502 004146 005201 INC R1 ‘UPDATE TO NEXT CHANNEL 
503 004150 022701 000100 CMP #100,R1 TEST IF DONE ALL CHANNELS 
504 004154 001367 BNE 1$ :BR IF NOT 
505 004156 000207 RTS PC EXIT 





oe? 


M 
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MAINDEC-11-CVP_ F=-C MINC- 
CVMNE C.P11 10=JUL-81 14:27 END OF PASS ROUTINE SEQ 0025 
507 
508 sASCII MESSAGES 
509 004160 020040 046473 041516 ADPRI: .ASCIZ / ;MNCAD / 
004166 042101 000040 
510 004172 020040 046473 041516 KWPRI: .ASCIZ / ;MNCKW / 
004200 053513 000040 
511 004204 046473 041516 AAPRI: .ASCIZ / ;MNCAA / 
004212 040501 000040 
512 004216 020040 046473 041516 DIPRI: .ASCIZ / ;MNCDI / 
004224 044504 000040 
513. 004230 020040 046473 041516 DOPRI: .ASCIZ / ;MNCDO / 
004236 047504 000040 
514 004242 025040 020052 042040 NOPRI: .ASCIZ / ** DOES NOT EXIST **/ 


004250 042517 020123 047516 
004256 osoiSe 054105 051511 


004264 000 
515 004271 pod 047440 020106 NIPRI: .ASCIZ /# OF / 


004276 

516 004277 101 020124 042101 ATPRI: .ASCIZ /AT ADDRESS = / 
004 051104 051505 020123 
004312 020075 000 

517 004315 040 020040 042526 VIPRI: .ASCIZ / VECTOR = / 
004322 052103 051117 036440 
004330 000040 

518 004332 004411 000 SSPACE: .ASCIZ / / 

519 004335 040 000 SPACE1: .ASCIZ / / 

520 004337 040 020055 000 MDASH: .ASCIZ / = / 

521 004343 040 044523 043516 MSE: sASCIZ / SINGLE ENDED/<200> 
004350 042514 042440 042116 


000200 
522 004362 042040 043111 042506 MDIF: .ASCIZ / DIFFERENTIAL/<200> 
004370 042522 a 040511 


523 004401 040 051120 040505 MPRMP: .ASCIZ / PREAMP/<200> 
0044 000200 
524 006412 052040 020105 046501 MTCMP: .ASCIZ / TC AMP/<200> 
525 004423 200 047504 054440 QUESAD: .ASCII <200>\DO YOU WANT THE MNCAD (A/D) CHANNEL MODE REPORT ?\ 


004466 042504 
004474 051040 ied 573 051117 


526 004505 200 004411 054524 -ASCIZ <200>\ TYPE *"y’’ FOR YES = \ 
004512 042520 1040 021131 
004520 3040 BTA 054440 


40 000040 
527 020117 047531 QUESMP: .ASCII <200>\DO YOU WANT THE MEMORY USAGE MAP REPORT ?\ 


043501 
572 040515 020120 042522 





ne 
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OPTION 


037440 
050131 
0 2 


505 
052111 
040440 
051523 
004522 
030060 
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SIZER PROGRAM MACY1T1 3061068) 14=JUL-81 15:01 PAGE 13-1 


END OF PASS ROUTINE SEQ 0026 
LASCIZ <200>\ TYPE "'Y'" FOR YES = \ 

MNCMAP: .ASCII <200>\MINC=11 MEMORY USAGE MAP (EACH BIT = 2 ADDRESSES) \<200> 
ASCII. \ ADDR _—-000400 100/500\ z 
-ASCIZ \ 200/600 300/700\ 

SETMNC: .BYTE 15.12.12 
"ASCII /OPERATOR ‘ PLEASE DO THE FOLLOWING:/ 
‘BYTE 15.12.12 
"ASCII /REMOVE THE CUSTOMER CONNECTIONS FROM EACH ‘MINC-11'' OPTION/ 
BYTE 15,12 
"ASCII. \MNCAD (A/D) SET FRONT PANEL SWITCHES TO THE ‘TEST’ POSITION\ 
-BYTE 15,12 


ne 4 






— 
— 


MA INDE C=11=CVMNF =C MIN 
CVMNF CC .P11 10=JUL=81 14: 


539 005270 047115 040 
005276 042 


B 
OPTIGN SIZER PROGRAM MACY11 30609063) 14=JUL-81 15:01 PAGE 13-2 
END OF PASS ROUTINE SEQ 0027 


-ASCII \MNCAG (PREAMP) SET FRONT PANEL SWITCHES TO THE ‘P’’ POSITION\ 


Sana 
RELL 


MmMOrnr 
MLUWO 
oO 
wn 


540 005364 


0 
04 
-BYTE 15,12 
541 005366 eS 


peel ee “ASCII = \MNCKW (CLOCK) PULL OUT ‘'ST1°* AND ‘'ST2"' SWITCHES\ 


004 
044103 051505 
542 005446 015 012 -BYTE 15,12 
543 005450 004411 040411 042116 ASCII \ 
005456 051040 052117 052101 
005464 020105 052506 046114 
005472 020131 Bie] 95 041517 


AND ROTATE FULLY CLOCKWISE\ 


005500 053513 0515 105 
544 005505 015 012 -BYTE 15,12 
545 005507 115 041516 044504 eASCII \MNCDI (DIGITAL IND SET ‘DATA’ SWITCH TO THE ‘‘="* POSITION\ 


-BYTE 15,12 


5 
1 
546 005577 015 0 
547 00560 3 5 -ASCII \SLU 0 INSTALL ‘SLU TEST CONNECTOR’\ 
1 


123 4 
005630 052123 041440 04 
005636 my 052103 05 


548 005645 015 012 BYTE 15,12 
549 005647 123 oe2) 030440 eASCII \SLU 1 INSTALL ‘SLU TEST CONNECTOR''\ 


550 005713 


BYTE 15,12 : 
551 005715 


-ASCII \SLU 2 INSTALL ‘‘SLU TEST CONNECTOR’’\ 


—— SS onsn-a-— 
SEN WOU 
So 
wn 
=~ 
— 


oO 
—fUNO SH e eh 


046 





| ¢ 3 
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MA INDE C=11=CVMNF =C MINC=11 
CVMNFC.P11 10=JUL=81 14:27 END OF PASS ROUTINE SEQ 0028 
005736 6122 020125 042524 
005744 052123 041440 047117 
005752 2516 052103 051117 
005760 042 | 
552 005761 015 012 012 BYTE. 15,12,12 
553 005764 2504 051120 051505 -ASCIZ ‘\WDEPRESS A KEY ON THE CONSOLE TERMINAL WHEN READY. \ 
005772 020123 020101 042513 
020131 047117 052040 
042510 041440 047117 
006014 047523 042514 052040 
22 051105 044515 040516 
006030 020114 044127 047105 
36 051040 040505 054504 
006044 020056 000 
554 006047 200 044103 041505 WOWAGS: .ASCIZ <200>\CHECK SYSTEM CONFIGURATION = TOO MANY MNCAG DETECTED\<200> 
006054 020113 054523 052123 
046505 041440 047117 
006070 044506 052507 040522 
006076 044524 7117 6440 
006104 052040 047517 046440 
006112 047101 020131 047115 
006120 0405 20107 042504 
03 042105 


- EVEN 





——— 


MA INDE C=11=CVMNF =C MINC=11 OPTION aioe PROGRAM MACY11 seated 14=JUL-81 15:01 PAGE 14 
CVMNF CP 11 10=JUL=81 14:27 Y INPUT ROUTINE SEQ 0029 
558 -SBTTL TTY INPUT ROUTINE 


a 
wo 

ww 
. 


PY -ARRRRRSALASALALSAALARSASASEAREASAAASARAR RARER RAARS RAR ARRAS AAS S SO | 


-ENABL LSB 
006136 000000 $TKCNT: .WORD OQ ; ;NUMBER_ OF Nig IN QUEUE 
006140 000000 $TKQIN: .WORD 0 3; INPUT POINTER 
006142 000000 $TKQOUT: .WORD 0 ; OUTPUT POINTER 
006144 000040 $TKQSRT: .BLKB 32. ;-TTY KEYBOARD QUEUE 
006204 $STKQEND=. 


3*TK INITIALIZE ROUTINE 
3*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


3*CALL: 

7* JSR PC,STKINT 

5® RETURN 
006204 005037 006136 $TKINT: CLR $STKCNT ;:CLEAR COUNT OF ITEMS IN QUEUE 
006210 012737 006144 006140 MOV ASTKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 
006216 013737 006140 006142 MOV STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
006224 012737 006254 000060 MOV #STKSRV ,@ATKVEC #¢ INITIALIZE THE KEYBOARD VECTOR 
006232 012737 000200 000062 MOV #200, @MTKVEC+2 ;;'BR'’ LEVEL 4 
006240 005777 172702 TST a$TkKB sCLEAR DONE FLAG 
006244 012777 000100 172672 MOV #100,a$TKS «TENABLE TTY KEYBOARD INTERRUPT 
006252 000207 RTS PC ;;RETURN TO CALLER 


:*TK SERVICE ROUTINE 

3*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

:*IT IN THE QUEUE. 

3*IF THE CHARACTER IS A ‘‘CONTROL-C'' (*C) STKINT IS CALLED AND 

;*UPON RETURN EXIT IS MADE TO THE ‘'CONTROL-C'' RESTART ADDRESS (BEGIN) 


006254 117746 172666 $TKSRV: MOVB = a$TKB, - (SP) ;:PICKUP_THE CHARACTER 
006260 042716 177600 BIC #°(177, (SP) :STRIP THE J 
006264 021627 000003 CMP (SP) #3 t:IS ITA CONTROL C? 
006270 001007 BNE 1$ + :BRANCH IF NO 
006272 104401 007044 TYPE /$CNTLC S: TYPE A CONTROL-C (*C) 
006276 004737 006204 JSR PC, $TKINT ‘INIT THE KEYBOARD 
096302 005726 TST (SP) + *>CLEAN UP STACK 
304 000137 001324 JMP BEGIN 7: CONTROL C RESTART 
006310 1$: . 
006310 022737 000040 006136 CMP #32. $TKCNT 2318 THE QUEUE FULL? 
006316 001004 BNE 3$ + :BRANCH IF NO 
006320 104401 007040 TYPE , SBELL ‘RING THE TTY BELL 
006324 005726 TST (SP) + 2: CLEAN CHARACTER OFF OF STACK 
006326 000451 BR 5$ XIT 
006320 021627 000023 3$: CMP (SP) ,#23 Be IT A CONTROL-S? 
006334 001021 BNE 32$ CH IF NO 
006336 605077 172602 CLR asTkS - = DISABLE TTY KEYBOARD INTERRUPTS 
006342 005726 TST (SP) + [CLEAN CHAR OFF STACK 
006344 105777 172574 31$: STB = @STKS SIWAIT FOR A CHAR 
006350 100375 BPL 31$ *:LOOP UNTIL ITS THERE 


me ee ek kk kk a tk ak a ot ot 1 ot ot I ot 3 oS os SI 8 I OS 
NN Ne ee es es SS eS eS OS eS ws ww ww ees ees a 
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006352 117746 172570 MOVB @$TKB,-(SP) 3:GET THE CHARACTER 
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| MAINDEC=11 
CREEPY” VRE Mid? TTY INPUT ROUTINE SEQ 0030 
006356 042716 177600 BIC - #°C177,(SP) ss ;MAKE_IT 7-BIT ASCII 
006362 022627 000021 CMP (SP) +, #21 :31S IT A CONTROL=0? 
006366 001366 BNE «318 CH IF NO 
006370 012777 000100 172546 MOV #100, a$TKS EREENABLE TTY KEYBOARD INTERRUPTS 
006376 000002 RTI ; RETURN 
00 005237 006136 328: INC — STKCNT : COUNT THIS CHARACTER 
04 021627 000140 CMP (SP) , #140 :1S 17 UPPER CASE? 
006410 002405 BLT «48 CH IF YES 
006412 021627 000175 CMP (SP) #175 SEIS IT A SPECIAL CHAR? 
006416 003002 BGT 48 : BRANCH IF YES 
006420 042716 000040 BIC #40, (SP) MAKE IT UPPER CASE 
006424 112677 177510 4$:  MOVB = (SP3+,a@$TKQIN ::AND PUT _IT IN QUEUE 
006430 005237 006140 INC $TKQIN ZIUPDATE THE POINTER 
006434 023727 006140 006204 (MP = $TKQIN, #STKQEND $360 OFF THE END? 
006442 001003 BNE $ CH_IF NO 
006444 012737 006144 006140 MOV - #STKQSRT,STKOIN ;:RESET THE POINTER 
006452 000002 5$: RTI ; RETURN 
-DSABL LSB 
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SL ERR AEE EAE ARATE EERERAEEAAAEKARERERERRAAREARAERERERREARER RD 


[*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


> *CALL: 
;* RDCHR 7:GET A CHARACTER FROM THE QUEUE 
i* RETURN HERE 3; CHARACTER IS ON THE STACK 
:* 7zWITH PARITY BIT STRIPPED OFF 
006454 011646 $RDCHR: MOV (SP) ,=(SP) 4a @ DOWN THE PC AND 
006456 016666 000004 000002 MOV 4(SP),2(SP) 33 PS 
006464 005066 000004 CLR 4(SP) :2GEY READY FOR A CHARACTER 
006470 005046 CLR -(SP) ;PUT NEW PS ON STACK 
006472 012746 006500 MOV #64$,-(SP) 7:PUT NEW PC ON STACK 
006476 000002 RTI 37POP NEW PC AND PS 
006500 64$: 
006500 005737 006136 1$: TST ceed 3zWAIT ON A CHARACTER 
006504 001775 BEQ i 
006506 005337 006136 DEC $TK 7 ;DECREMENT THE COUNTER 
006512 117766 177424 000004 MOVB 3$TKOOUT, 4(SP) :3GET ONE CHARACTER 
006520 005237 006142 INC $TKQOUT ; UPDATE THE POINTER 
006524 023727 006142 006204 CMP STKQOUT ,#STKQEND” 3EDID iy GO OFF OF THE END? 
006532 001003 BNE 2 ;;BRANCH IF NO 
006534 012737 006144 006142 MOV #STKQSRT,STKQOUT ;;RESET THE POINTER 
006542 000002 2$: RTI ; ;RETURN 
SEAR AEA AAA EREAAAEAREAEAAEAERAEAARAERAERAA AREER EE AREER EE 
by ROUTINE WILL INPUT A STRING FROM THE TTY 
2 *CALL: 
7° RDLIN +3 INPUT A STRING FROM THE TTY 
se RETURN HERE ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;* T:TERMINATOR WILL BE A BYTE OF ALL O'S 
006544 010346 $RDLIN: MOV R3,-(SP) 72SAVE R3 
006546 005046 CLR -(SP) 7: CLEAR THE RUBOUT KEY 
006550 012703 007000 1$: MOV MSTTYIN,R3 ;GET ADDRESS 


kk kk kk a) a ak an tk kk at es SPN NY 9 3 9 2 2 2 2 ON PP BP OP SS SS 4 YS Yh YS YH Yh Sh Hh 
ee ee at a et tit tt th tet ee et 


006554 022703 007040 2$: CMP WSTTYIN¢32.,R3  :;BUFFER FULL? 
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| 
MAINDEC=11 
LCVMNFC.PTT — 10=JUL=81 14:07 Y INPUT ROUTINE SEQ 0031 
(1) 006560 101456 BLOS 4$ ;;BR IF YES 
(1) 006562 104407 RDCHR +:GO READ ONE CHARACTER FROM THE TTY 
/ (4) 006564 «112613 MOVB _—« (SP) +, (R3) [:GET CHARACTER 
(1) 006566 122713 000177 10$: CMPB = #177, (R3) ‘21S IT A RUBOUT 
(1) 006572 001022 BNE 5$ ::BR IF NO 
<1} 006574 005716 TST (SP) 351 THIS THE FIRST RUBOUT? 
(1) 006576 001007 BNE 6$ =BR IT NO 
(1) 112737 000134 006776 MOVB = #"\ , 9 ::TYPE A BACK SLASH 
(1) 006606 104401 006776 TYPE 49 
(1) 006612 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
(1) 006616 005303 6$: DEC R3 ::BACKUP BY ONE 
(1) 006620 020327 007000 CMP R3,HSTTYIN : STACK EMPTY? 
(1) 006624 103434 BLO 4$ ::BR IF YES 
(1) 006626 111337 006776 MOVB _—«(R3),9$ : 3 SETUP TO TYPEOUT THE DELETED CHAR. 
(1) 006632 104401 006776 TYPE 9$ ::GO TYPE 
(1) 006636 000746 BR 3$ *:GO READ ANOTHER CHAR. 
(1) 006640 005716 : 5$: TST (SP) :=RUBOUT KEY SET? 
(1) 006642 001406 BEQ 7$ 7:BR IF NO 
(1) 006644 112737 000134 006776 MOVB so #''\ ,9$ ::TYPE A BACK SLASH 
(1) 066652 104401 006776 TYPE ,9$ 
(1) 006656 005016 CLR (SP) ::CLEAR THE RUBOUT KEY 
(1) 006660 122713 000025 7$: CMPB ss #25, (R3) :1S CHARACTER A CTRL U? 
(1) 006664 001003 BNE IF NO 
(1) 006666 104401 007051 TYPE  , $CNTLU S:TYPE A CONTROL ‘U"’ 
(1) 006672 000726 BR i$ >:GO START OVER 
(1) 006674 122713 000022 &$: CMPB ss: #22, (R3) t:1S CHARACTER A ‘"*R'"? 
(1) 006700 00101 BNE 3$ ::BRANCH IF NO 
(1) 006702 105013 CLRB —- (3) CLEAR THE CHARACTER 
(1) 006704 104401 001161 TYPE , $CRLF [:TYPE ACR &@ "LE" 
(1) 006710 104401 007000 TYPE STTYIN ‘= TYPE THE INPUT STRING 
(1) 006714 000717 BR $ :3G0 PICKUP ANOTHER CHACTER 
(1) 006716 104401 001160 4$: TYPE  , $QUES YPE A 
(1) 006722 000712 BR is TICLEAR Te BUFFER AND LOOP 
(1) 006724 111337 006776 3$: MOVB _—«(R3),9$ *:ECHO THE CHARACTER 
(1) 006730 104401 006776 TwEOCO«, 
(1) 006734 122723 000015 CMPB ss #15, (R3)+ :CHECK FOR RETURN 
(1) 006740 001305 BNE 2$ LOOP IF NOT RETURN 
(1) 006742 105063 177777 CLRB = -1(R3) <TCLEAR RETURN (THE 15) 
(1) 006746 104401 001162 TYPE ,$LF :: TYPE A LINE FEED 
(1) 006752 005726 TST (SP) + 73CLEAN RUBOUT KEY FROM THE STACK 
(1) 006754 012603 MOV (SP)+,23 TRESTORE R3 
(1) 006756 011646 MOV (SP) ,-(SP) 3 ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 006760 016666 000004 000002 MOV 4(SP),2(SP) +: FIRST ASCII CHARACTER ON IT 
(1) 006766 012766 007000 000004 MOV #STTYIN,4(SP) 
(1) 006774 000002 RTI : ;RETURN 
- (1) 006776 000 98: .BYTE 0 +=STORAGE FOR ASCII CHAR. TO TYPE 
(1) 006777 000 "BYTE 0 + TERMINAT 
(1) 007000 000049 STTYIN: .BLKB 32. :=RESERVE 32. BYTES FOR TTY INPUT 
(1) 007040 177607 000377 $BELL: .ASCIZ <207><377><377> ::CODE FOR BELL 
(1) 007044 041536 005015 000 $CNTLC: ZASCIZ /*C/<15><12> 3: CONTROL ‘'C"" 
(1) 007051 136 006525 000012 $CNTLU: -ASCIZ /*U/<15><12> CONTROL ‘U"' 
(1) 007056 043536 005015 000 $CNTLG: :ASCIZ /*G/<15><12> FECONTROL “—" 
(1) 007063 015 051412 051127 $MSWR: .ASCIZ <15><12>/SWR = 
(1) 007070 036440 000040 
(1) 007074 020060 042516 020127 $MNEW: .ASCIZ / NEW = 
(1) 007102 020075 000 
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| MAINDEC=11=CVMNF ~C MINC=11 OPTION SIZER PROGRAM  MACY11 306(406%) 14=JUL=81 15:01 PAGE 14-3 
| CVMNFC.P11 10=JUL-81 14:27 Y INPUT ROUTINE SEQ 0032 
| “4 007106 .EVEN 
559 “SBTTL TYPE ROUTINE 
j (2) FFARR AAEKARRAAAERAAREERERAERAERAAAERRRAARARREAARARRRARERERAEARRERH 
| (1) > *ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
Soe! :*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
(1) S*NOTE1: $NULL CONTAINS THE CHARACTER r9 BE USED AS THE FILLER CHARACTER. 
(1) ‘ *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
oe * *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
( ;* 
(1) > *CALL 
(1) *1) USING A TRAP INSTRUCTION 
(1) a TY , :zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(1) 7* 
(1) te TYPE 
(1) ie ME SADR 
) x 
( 
(1) 007106 105737 001157 $TYPE: TSTB $TPFLG zr1S THERE A TERMINAL? 
(1) 007112 100002 BPL 1$ ::BR IF YES 
(1) 007114 000000 HALT i:HALT HERE IF NO TERMINAL 
(1) 007116 000430 BR 3$ LEAVE 
(1) 007120 010046 1$: MOV RO.-(SP) +: SAVE RO 
(1) 007122 017600 000002 MOV @2(SP) ,RO 2:GET ADDRESS OF ASCIZ STRING 
(1) 007126 122737 000001 001204 CMPB = #APTENV, SENV : RUNNING IN APT 
(1) 007134 001011 BNE 62$ >:NO,GO CHECK FOR Apr {CONSOLE 
(1) 007136 132737 000100 001205 BITB § #APTSPOOL,SENVM ::SPOOL MESSAGE TO AP 
(1) 007144 001405 BEO 62$ :NO,GO CHECK FOR C ONSOLE 
(1) 007146 010037 007156 MOV RO,61$ :SETUP MESSAGE ADDRESS FOR APT 
(1) 007152 004737 010176 JSR PC, SATY3 >:SPOOL MESSAGE TO AP 
(1) 007156 000000 61$: .WORD 0 ::MESSAGE ADDRESS 
(1) 007160 132737 000040 001205 62$: BITB § #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
(1) 007166 001003 BNE 6 ss YES. Sit TYPE OUT 
(1) 007170 112046 2$: MOVB (RO) +,-(SP) PUSH CHARACTER TO BE TYPED {onto STACK 
(1) 007172. 001005 BNE 4$ [:BR IF IT ISN'T THE TERMINA 
(1) 007174 005726 TST (SP) + 475 TERMINATOR POP IT OFF ~~ STACK 
(1) 007176 012600 60$: MOV (SP)+,RO + RESTORE RC 
(1) 007200 062716 000002 3$: ADD #2,(SP) + ADJUST RETURN PC 
(1) 007204 000002 RTI + = RETURN 
(1) 007206 122716 000011 4$: CMPB  —s- HHT, (SP) + BRANCH IF <HT> 
(1) 097212 001430 BEQ 
(1) 007214 122716 000200 CMPB ~—s_ ARF, (SP) : BRANCH IF NOT <CRLF> 
(1) 007220 001006 BNE 5$ 
(1) 007222 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
(1) 007224 104401 TYPE ::TYPE A CR AND LF 
(1) 007226 001161 SCRLF 
(1) 007230 105037 007436 CLRB = $CHARCNT ::CLEAR CHARACTER COUNT 
(1) 007234 000755 BR 2$ ::GET NEXT CHARAC 
(1) 007236 004737 007320 5$: JSR PC, $TYPEC *:GO TYPE THIS CHARACTER 
(1) 007242 123726 001156 6$: CMPB~—sy- SF ILL, (SP) + ::1S IT TIME FOR FILLER CHARS. ? 
(1) 007246 001350 BNE 2$ ::1F NO GO GET NEXT CHAR. 
1) 007250 013746 001154 MOV $NULL,-(SP) :2GET # OF FILLER ¢ CHARS. NEEDED 
(1) 007254 105366 000001 7$: DECB 1(SP) >:DOES A NULL NEED TO BE TYPED? 
(1) 007260 002770 BLT 6$ >:BR IF NO=-GO POP THE NULL OF® OF STACK 
(1) 007262 004737 007320 JSR PC ,$TYPEC 7:2 TYPE A NULL 
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MA INDE C=11=CVMNF =C 

CVMNF C.P11 10=JUL=81 14:27 YPE ROUTINE SEQ 0033 
(1) 007266 105337 007436 DECB § $CHARCNT ::DO NOT COUNT AS A COUNT 
(1) 007272 000770 BR 7$ + LOOP 
a :HORIZONTAL TAB PROCESSOR 
(1) 007274 112716 000040 8$: MOVB so #":_, (SP) ::REPLACE TAB WITH SPACE 
(1) 007300 004737 007320 9$: JSR PC, $TYPEC Si TYPE A SPACE 
(1) 007304 132737 000007 007436 BITB #7.$CHARCNT BRANCH I IF NOT AT 
(1) 007312 001372 BNE 9$ STOP 
(1) 007314 005726 TST (SP) + ::POP SPACE OFF STACK 
(1) 007316 000724 BR 2$ *:GET NEXT CHARACTER 
(1) 007320 $TYPEC: 
(1) 007320 105777 171620 TSTB = ASTKS ::CHAR IN KYBD SUFFER? :MJD001 
(1) 007324 100022 BPL 10$ :3BR_IF NOT *MJDO01 
(1) 007326 017746 171614 MOV OS TKB.<(SP) =GET CHAR *MJD001 
(1) 007332 042716 177600 BIC #177600, (SP) STRIP EXTRANEOUS BITS >MJD001 
(1) 007336 122716 000023 CMPB ASXOFF , (SP) sz WAS CHAR XOFF :MJDOO1 
(1) 007342 001012 BNE 102$ ::BR IF NOT >MJD001 
(1) 007344 1018: =MJDO01 
(1) 007344 105777 171574 TSTB = @STKS szWAIT FOR CHAR *MJDO01 
(1) 007350 100375 BPL 101$ *MJDOO1 
(1) 007352 117716 171570 MOVB  a$TKB ::GET CHAR >MJD001 
(1) 007356 042716 177600 BIC et “SPD S:STRIP IT *MJDOO1 
(1) 007362 122716 000021 CMPB —s #$XON, (SP) tZWAS IT XON? *MJDOO01 
(1) 007366 001366 BNE 101$ ::BR IF NOT >MJDO01 
(1) 007370 1028: =MJDO01 
(1) 007370 005726 TST (SP) + z:F IX STACK >MJDO01 
(1) 007372 108: >MJDO01 
(1) 007372 105777 171552 TSTB = a$TPS ::WAIT UNTIL PRINTER IS READY 
(1) 007376 100375 BPL 10$ MJDOO1 
(1) 007400 116677 000002 171544 MOVB  2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 007406 122766 000015 000002 CMPB ss: HR, 2( SP) :31S CHARACTER A CARRIAGE RETURN? 
(1) 007414 001003 BNE 1$ ‘BRANCH IF NO 
(1) 007416 105037 007436 CLRB  $CHARCNT i: YES=-CLEAR CHARACTER COUNT 
(1) 007422 000406 BR $TYPEX IT 
(1) 007424 122766 000012 000002 15: CMPB ss #LF., 2 (SP) t:1S CHARACTER A LINE FEED? 
(1) 007432 001402 BEQ $TYPEX BRANCH IF YES 
(1) 007434 105227 INCB (PC) + : COUNT THE CHARACTER 
(1) 007436 000000 SCHARCNT:.WORD 0 * CHARACTER COUNT STORAGE 
cD 007440 000207 $TYPEX: RTS PC 
(1) 
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| MAINDE C=11=CVMNF =C MINC=11 OPTION SIZER PROGRAM MACY11 s0c(1963) 1 14=JUL-81 15:01 PAGE 15 
| CVMNFC.P11 10=JUL=81 14:27 BINARY TO OCTAL (ASCII) AND T SEQ 0034 
| 561 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
(2) 3 MeRARRARBAAASLALALASLALALAAAAAAAAARLARALARARRRSARSRR RAR RRR RRR AAAS AAAS SA S| 
) t*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) **OCTAL (ASCII) NUMBER AND TYPE IT 
(1) 3 ¥$TYPOS-—~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
( 7* : 
(1) :* MOV NUM ,=(SP) 7 NUMBER TO BE TYPED 
(1) ;* TYPOS CALL FOR TYPEOUT 
(1) :* .BYTE N :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) i* .BYTE M 7 7M=1 OR O 
(1) :* 721=TYPE LEADING ZEROS 
Sh * i* 7; 0=SUPPRESS LEADING ZEROS 
 * 
(1) :*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) z*$TYPOS OR $TYPOC 
(1) :*CALL: 
(1) 3 - MOV NUM, =(SP) : NUMBER TO BE TYPED 
) :* TYPON CALL FOR TYPEOUT 
A 
a :s$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
>*CALL 
(1) :* MOV NUM, -(SP) NUMBER TO BE TYPED 
Sf :* TYPOC SICALL FOR TYPEOUT 
(1) 007442 017646 000000 $TYPOS: MOV a(SP) ,-(SP) PICKUP THE MODE 
(1) 007446 116657 000001 007665 MOVB 1(SP), SOF ILL ::LOAD ZERO FILL SWITCH 
(1) 007454 112637 007667 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
(1) 007460 062716 000002 ADD #2.,(SP) SZADJUST RETURN ADDRESS 
(1) 007464 000406 BR $TYPON 
(1) 007466 112737 000001 007665 $TYPOC: MOVB #1,$0F ILL 7;SET THE ZERO FILL SWITCH 
(1) 007474 112737 000006 007667 MOVB #6, SOMODE +1 72SET FOR SIX(6) DIGITS 
(1) 007502 112737 000005 007664 $TYPON: MOVB #5,SOCNT SET THE ITERATION COUNT 
(1) 007510 010346 MOV R3,-(SP) SAVE R3 
(1) 007512 010446 MOV R4,-(SP) SAVE R4 
(1) 007514 010546 MOV R5,-(SP) 77 SAVE RS 
(1) 007516 113704 007667 MOVB SOMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
(1) 007522 005404 NEG R4 
(1) 007524 062704 000006 ADD #6,R4 3; SUBTRACT IT FOR MAX. ALLOWED 
(1) 007530 110437 007666 MOVB R4. SOMODE SAVE IT FOR USE 
(1) 007534 113704 007665 MOVB SOF ILL, R4 ::GET THE ZERO FILL SWITCH 
(1) 007540 016605 000012 MOV 12(SP) RS PICKUP THE INPUT NUMBER 
(1) 007544 005003 CLR R3 7; CLEAR THE OUTPUT WORD 
(1) 007546 006105 1$: ROL RS 7 ROTATE MSB INTO ‘'C’' 
(1) 007550 000404 BR 3$ ::G0 DO MSB 
(1) 007552 006105 2$: ROL R5 ::FORM THIS DIGIT 
(1) 007554 006105 ROL R5 
(1) 006105 ROL R 
(1) 007560 010503 MOV R5.R3 
(1) 007562 006103 38: ROL R3 ::GET LSB OF THIS DIGIT 
(1) 007564 105337 007666 DECB SOMODE i: TYPE THIS DIGIT? 
(1) 007570 100016 BPL 7$ 7BR IF NO 
(1) 007572 042703 177770 BIC #177770,R3 GET RID OF JUNK 
(1) 007576 001002 BNE 4$ 7: TEST FOR O 
(1) 007600 005704 TST R4 : ; SUPPRESS THIS 0? 
(1) 007602 001403 BEQ 5$ ::BR IF YES 
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MAINDEC-11=CVMNF=C MINC- 
CVMNF(C.P11 10-JUL-81 14:27 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0035 
(1) 007604 005204 4$: INC RG z:DON'T SUPPRESS ANYMORE 0'S 
(1) 007606 052703 000060 BIS #°0,R3 S2MAKE THIS DIGIT ASCII 
(1) 007612 052703 000040 S$: BIS #* -R3 + MAKE ASCII wt NOT ALREADY 
(1) 007616 110337 007662 MOVB R83, BS :3SAVE FOR TYPING 
(1) 007622 104401 007662 TYPE 8S ‘GO TYPE THIS DIGIT 
(1) 007626 105337 007664 7$: DECB =—- $0CNT ; COUNT BY 1 
(1) 007632 003347 BGT 2$ ‘:BR If MORE TO DO 
(1) 007634 002402 BLT 6$ 7:BR IF DONE 
(1) 007636 005204 INC RG 2 INSURE LAST DIGIT ISN'T A BLANK 
(1) 007640 000744 BR 2$ ::GO DO THE LAST DIGIT 
(1) 007642 012605 6$: MOV (SP)+,R5 < Res TORE R5 
(1) 007644 012604 MOV (SP) +.R4 TRESTORE R4 
(1) 007646 012603 MOV (SP)+-R TZRESTORE R3 
(1) 007650 016666 000002 000004 MOV 2(SP) -4(SP) S:SET THE STACK FOR RETURNING 
(1) 007656 012616 MOV (SP) +. (SP) 
(1) 007660 000002 RTI 7 ;RETURN 
(1) 007662 000 8S: .BYTE 0 ::STORAGE FOR ASCII DIGIT 
(1) 007663 600 "BYTE 0 * TERMINATOR FOR TYPE ROUTINE 
(1) 007664 000 SOCNT: -BYTE 0 :20CTAL DIGIT COUNTER 
(1) 007665 000 SOFILL: .BYTE 0 SZERO FILL SWITCH 
(i) 007666 000000 SOMODE: .WORD 0 ‘NUMBER OF DIGITS TO TYPé 
562 "SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) FERRARA EERE EERE EERE AREER ERRATA REAEEEEREERE KEE 
(1) <STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) ;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) S*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
1) S*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) z*REPLACED WITH SPACES. 
(1) S*CALL: 
(1) te MOV NUM, - (SP) :PUT THE BINARY NUMBER ON THE STACK 
a te TYPDS <260 TO THE ROUTINE 
(1) 007670 $TYPDS: 
(3) 007670 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 007672 010146 MOV R1,-(SP) +=PUSH R1 ON STACK 
(3) 007674 010246 MOV R2.-(SP) *:PUSH R2 ON STACK 
(3) 007676 010346 MOV R3.-(SP) >:PUSH R3 ‘ON STACK 
(3) 007700 010546 MOV R5.-(SP) t:PUSH R5 ON STACK 
(1) 007702 012746 020200 MOV #20200,.-(SP) | ::SET BLANK SWITCH AND SIGN 
(1) 007706 016605 000020 MOV 20(SP) .R5 3 GET THE INPUT NUMBER 
(1) 007712 100004 BPL 1$ :BR IF INPUT IS POS. 
(1) 007714 005405 NEG R5 :ZMAKE THE BINARY NUMBER POS. 
(1) 007716 112766 000055 000001 MOVB = #*=, 1 (SP) [MAKE THE ASCII NUMBER NEG. 
(1) 007724 005000 1$: CLR RO ':ZERO THE CONSTANTS INDEX 
(1) 007726 012703 010104 MOV #SDBLK ,R3 ::SETUP THE OUTPUT POINTER 
(1) 007732 112723 000040 MOVB so #*: , (R38) ::SET THE FIRST CHARACTER TO A BLANK 
(1) 005002 2$: CLR R2 CLEAR THE BCD NUMBER 
(1) 007740 016001 010074 MOV $DTBL(RO),R1 GET THE CONSTANT 
(1) 007744 160105 3$: SUB R1,R5 >:FORM THIS BCD DIGIT 
(1) 007746 002402 BLT 4$ °:BR IF DONE 
(1) 007750 005202 INC R2 > INCREASE THE BCD DIGIT BY 1 
(1) 007752 000774 BR 3$ 
(1) 007754 060105 4$: ADD R1,R5 z:ADD BACK THE CONSTANT 
(1) 007756 005702 TST R2 *:CHECK IF BCD DIGIT=0 
(1) 607760 001002 BNE 5$ *SFALL THROUGH IF 0 
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MAINDEC 
CVMNFC.P11 10-JUL-81 14:27 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0036 
(1) 007762 105716 TSTB. = (SP) ii STILL DOING LEADING 0°S? 
(1) 007764 100407 BMI 7$ [:BR IF YES 
(1) 007766 106316 5$: ASLB — (SP?) MSD? 
(1) 007770 103003 BCC 6$ ::BR IF NO 
(1) 007772 116663 000001 177777 MOVB  1(SP),-1(R3) ::YES==SET THE SIGN 
<1) 010000 052702 000060 6$: BIS #'°0,R2 : MAKE THE BCD DIGIT ASCII 
(1) 010004 052702 000040 7$: BIS #" “RO SZMAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 010010 11022 MOVB _——R2, (R3)+ ‘PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 010012 005720 TST (RO) + +: JUST INCREMENT ING 
(1) 010014 020027 000010 CMP RO,#10 ;3CHECK THE TABLE INDEX 
(1) 010020 002746 BLT 2$ GO DO THE NEXT DIGIT 
(1) 010022 BGT 8$ *:G0 TO EXIT 
(1) 010024 010502 MOV R5,R2 :iGET THE LS 
(1) 010026 000764 BR 7GO CHANGE TO ASCII 
(1) 010030 105726 8$: TSTB = (SP) + 3 WAS THE LSD THe FIRST NON-ZERO? 
(1) 010032 3 BPL 9$ IF NO 
(1) 010034 116663 177777 177776 MOVB -1(SP).-2(R3) 2: YES=<SET THE SIGN, FOR TYPING 
(1) 010042 105013 9$: CLRB = (R3) °:SET THE TERMINATOR 
(3) 010044 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
(3) 010046 012603 MOV (SP) +.R3 ::POP STACK INTO R3 
(3) 010050 012602 MOV (SP) +-R2 *:POP STACK INTO R2 
(3) 010052 012601 MOV (SP) +.R1 ::POP STACK INTO R1 
(3) 010054 012600 MOV (SP) +_RO :3POP STACK INTO RO 
(1) 010056 104401 010104 TYPE  ,$DBLK [NOW TYPE THE NUMBER 
(1) 010062 016666 000002 000004 MOV 2(SP) ,.4(SP) <TADJUST THE STACK 
(1) 010070 012616 MOV (SP) +. (SP) 
(1) 010072 000002 RTI ;;RETURN TO USER 
(1) 010074 023420 $SDTBL: 10000. 
(1) 010076 001750 1000. 
(1) 010100 000144 100. 
(1) 010102 000012 é 
(1) 010104 SDBLK: .BLKw 4 
563 .SBTTL BINARY TO ASCII AND TYPE ROUTINE 
(2) SRE EEE TATE ATR EERE Eee 
(1) ‘*THIS ROUTINE IS USED TO CHANGE A 16~B1T BINARY NUMBER TO A 16-BIT 
a ) ; #BINARY-ASCII NUMBER AND TYPE IT. 
(1) ie MOV NUMBER,-(SP) | ;;NUMBER TO BE TYPED 
cD te TYPBN Si TYPE IT 
(1) 0191146 010146 $TYPBN: MOV R1,-(SP) ;7SAVE_R1 ON THE STACK 
(1) 010116 016601 000006 MOV 6(SP) .R1 [GET THE INPUT NUMBER 
(1) 010122 000261 SEC *:SET "'C’’ SO CAN KEEP TRACK OF THE NUMBER OF BITS 
(1) 0101246 112737 000060 010166 1S: MOVB = #"0, SBIN °:SET CHARACTER TO AN ASCII ‘O"*. 
(1) 010132 006101 ROL R1 *:GET THIS BIT 
(1) 010134 001 BEO 2$ ; DONE? 
(1) 010136 105537 010166 ADCB = $BIN 7NO-~SET THE CHARACTER EQUAL TO THIS BIT 
(1) 010142 104401 010166 TYPE  ,$BIN £360. TYPE THIS BIT 
(1) 010146 000241 CLC *=CLEAR “'C'’ SO CAN KEEP TRACK OF BITS 
(1) 010150 000765 BR 1$ $560, 00 THE NEXT BIT 
(1) 010152 012601 2$: MOV (SP)+,R1 *POP THE STACK INTO R1 
(1) 010154 016666 000002 000004 MOV 2(SP) -4(SP) ‘= ADJUST THE STACK 
(1) 010162 012616 MOV (SP)+. (SP) 
(1) 010164 000002 RTI ::RETURN TO USER 
(1) 010166 000 000 $BIN: .BYTE 0,0 *:STORAGE FOR ASCII CHAR. AND TERMINATOR 





NDE C-11=CVMNF=C MINC-11 OPTION SIZER PROGRAM  =MACY11 306 (4063 14=JUL-81 15:01 PAGE 15-3 
VMNFC.P11 10-JUL-81 14:27 T COMMUNICATIONS ROUTINE SEQ 0037 
564 .SBTTL APT COMMUNICATIONS ROUTINE 

(3) Sf ERA AAA AEA AARAAEAKRERERAAERARRARERAERAAEEAAEARA ARERR EEEH 
(1) 010170 112737 000001 010434 TY1: MOVB  #1,$FFLG :zTO REPORT FATAL ERROR 

(1) 010176 112737 000001 010432 S$ATY3: MOVB #1,$MFLG ::T0 TYPE A MESSAGE 

<1) 010204 000403 BR SATYC 

(1) 010 112737 000001 010434 $ATY4: MOVB  #1,SFFLG z:TO ONLY REPORT FATAL ERROR 
(1) 010214 SATYC: 

(3) 010214 010046 MOV RO,-(SP) zzPUSH RO ON STACK 

(3) 010216 010146 MOV R1,-(SP) 7 PUSH R1 ON STACK 

(1) 010220 105737 010432 TSTB = SMFLG :7SHOULD TYPE A MESSAGE? 

(1) 010224 001450 BEQ 5$ ZIF NOT: BR 

(1) 010226 122737 000001 001204 CMPB = #APTENV, SENV ; OPERATING UNDER APT? 

(1) 010234 001031 BNE 3$ :IF NOT: BR 

(1) 010236 132737 000100 001205 BITB § #APTSPOOL,SENVM ; : SHOULD SPOOL MESSAGES? 

(1) 010244 001425 BEQ 3$ NOT: BR 

(1) 010246 017600 000004 MOV a4 (SP) .RO TIGET MESSAGE ADDR. 

(1) 010252 062766 000002 000004 ADD #2. 4(SP) > ;BUMP RETURN ADDR. 
(1) 010260 005737 001164 1$: TST GTYPE 25 SEE IF "DONE W/ LAST XMISSION? 
(1) 010264 001375 BNE 7. NOT: WAIT 

(1) 010266 010037 001200 MOV RO, $MSGAD PUT ADDR IN MAILBOX 

(1) 010272 105720 28: TSTB (RO) + ::FIND END OF MESSAGE 

(1) 010274 001376 BNE 2$ 

(1) 010276 163700 001200 SUB SMSGAD ,RO ::SUB START OF MESSAGE 

(1) 010302 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
(1) 010304 010037 001202 MOV RO, $MSGLGT ::PUT LENGTH IN MAILBOX 

(1) 010310 012737 000004 001164 MOV #4. S$MSGTYPE 7: TELL @PT TO TAKE MSG. 

(1) 010316 000413 BR 5$ 

(1) 010320 017637 000004 010344 3S: MOV a4 (SP) .4$ ::PUT MSU ADDR IN JSR LINKAGE 
(1) 010326 062766 000002 000004 ADD #2,4(SP) RETURN ADDRESS 
(3) 010334 013746 177776 MOV 177776, -(SP) 3 7PUSH 19%6. ON STACK 

(1) 010340 004737 007106 JSR PC, $TYPE *:CALL TYPE MACRO 

(1) 010344 000000 4$: .WORD 0 

(1) 010346 S$: 

(1) 010346 105737 010434 10$: TSTB = SFFLG ::SHOULD REPORT FATAL ERROR? 
(1) 010352 001416 BEQ 12$ F NOT: 

(1) 010354 005737 001204 TST SENV 3 J RUNNING UNDER APT? 

(1) 010360 001413 BEQ 12$ NOT: BR 

(1) 010362 005737 001164 11$: TST SMSGTYPE 3 3F INISHED LAST MESSAGE? 

(1) 010366 001375 BNE F NOT: WAIT 

(1) 010370 017637 000004 001166 MOV @4(SP),SFATAL ::GET ERROR # 

(1) 019376 062766 000002 000004 ADD #2,4(SP) :BUMP RETURN ADDR. 
(1) 010404 005237 001164 INC $SMSGTYPE 2: TELL APT TO TAKE ERROR 

(1) 010410 105037 010434 12$: CLRB ~—s- SFFLG :3CLEAR FATAL FLAG 

(1) 010414 105037 010433 CLRB = $LFLG =CLEAR LOG FLAG 

(1) 010420 105037 010432 CLRB © SMFLG 7:CLEAR MESSAGE FLAG 

(3) 010624 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

(3) 12600 MOV (SP)+,RO ::POP STACK INTO RO 

(1) 010430 207 RTS PC 7 7RETURN 

(1) 010432 000 SMFLG: .BYTE 0 *:MESSG. FLAG 

(1) 010433 000 SLFLG: .BYTE 0 *:LOG FLAG 

(1) 010434 SFFLG: .BYTE 0 : FATAL FLAG 

(1) 010436 .EVEN 

(1) 000200 APTSIZE=200 

(1) 000001 APTENV=001 

(1) 000100 APTSPOOL=100 
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APTCSUP=040 


SEQ 0038 
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566 -SBTTL TRAP DECODER 


{RRR RRR RRRA RAAT E ERATE ERE Eee 

SS THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
[*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
> *OF _ DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


010436 010046 STRAP: MOV RO,~(SP) 3:SAVE RO 

010440 016600 000002 MOV 2(SP) ,RO + SAC TRAP ADDRESS 

010444 005740 TST ~(RO) KUP BY 2 

010446 111 MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 

010450 006300 ASL RO 3:POSITION FOR INDEXING 
016000 010472 MOV $STRPAD (RO) ,RO EINDEX TO TABLE 

010456 000200 RTS RO 3;GO TO ROUTINE 


THIS IS USE TO HANDLE THE ‘'GETPRI** MACRO 

010460 011646 . $TRAP2: MOV (SP) ,-(SP) -  33MOVE THE PC DOWN 
010462 016666 000004 000002 MOV 4(SP) ,2(SP) 7zMOVE THE PSW DOWN 
010470 000002 RTI 7 sRESTORE THE PSW 
-SBTTL TRAP TABLE 


7*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE ‘‘TRAP’’ INSTRUCTION. 


Pa ae a te tan ae, et ee i a a, a ae, a a a a a et ee ee 


WWW 2 2 2 2 2 SS Ss tS St ef 
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oO 
—_ 
wi 
NM 





(3) 

i. ; ROUT INE 

(3) 010472 010460 STRPAD: .WORD $TRAP2 j 

(3) 010474 007106 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

(3) 010476 007466 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 010500 007442 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 010502 007502 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 010504 007670 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 

oH 010506 010114 STYPBN ;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 

(1) 

(3) 010510 006454 $RDCHR = ;;CALL=RDCHR TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 

o 010512 006544 - SRDLIN ;;CALL=RDLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 

568 s;MEMORY USAGE MAP BLOCK 

569 010514 000100 ADRPOK: .BLKW 100 

370 010714 000000 ADRTOP: 0 LAST LOCATION USED BY PROGRAM 


572 000001 - END 
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AABASE 001262 55a 93* 94* 151 


AACNT 001274 634 101* 155 185 
AAOFF 001250 47# 94 
AAPRI 004204 153 184 5114 
ABASE = 171000 144 42 
ACDW1 = 000000 42 
ACDW2 = 000000 42 
000000 


91 
138 
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A = 000000 42 

ATESTN= 000000 42 

ATPRI 004277 291 5164 

AUNIT = 000000 42 

AUSWR = 000000 42 

AVECT1= 000000 42 

AVECT2= 000000 42 

BEGIN 001324 37 804 558 

BITO = 000001 134 422 

BITOO = 000001 134 

B1TO1 = 000002 134 

BITO2 = 000004 134 

BITOS = 000010 134 

B1T04 = 000020 134 

BITOS = 000040 134 

BIT06 = 000100 134 

BIT07 = 000200 134 

BITO8 = 000400 134 

B1ITO9 = 001000 134 

BIT1 = 2 134 485 

B1T10 = 002000 134 

BIT11 = 000 134 

BIT12 = 010000 134 

BIT13 = 020000 134 

BIT14 = 040000 134 

BIT15 = 100000 134 214 229 

BIT2 = 000004 134 

BITS = 000010 134 483 

BIT4 = 000020 134 

BITS = 134 

BIT6 = 000100 134 423 

BIT? = 000200 134 

BIT8 = 000400 134 405 

BIT9 = 001000 134 81 

BPTVEC= 000014 134 

CHAIN 000042 334 108 

CHB 004120 444% 460* 487 492a 

CR = 000015 134 559 

CRLF = 000200 134 105 559 

DDISP = 177570 134 42 84 

DIBASE 1264 564 95* 96* 159 

DICNT 001276 644 102* 163 189 

D 003544 158 4114 

DIOFF 001252 484 

DIPRI 00421 161 188 5124 

DISPLA 001142 424 84* 

DISPRE 001322 764 84 

DOBASE 001266 57# 97* 98* 167 

DOCNT 00 654 1035* 171 193 
003570 166 4184 

DOOFF 001254 49H 8 

DOPRI 004230 169 192 5134 

DSWR = 177570 134 4 

EMTVEC= 000030 134 

ERRVEC= 000004 134 84* 211 217* 245* 266 269* 273% 328* 

FIXVCT 003316 276 3534 
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FLAGAD 001316 748 118* 121* 304 329% 
FLAGMP 001314 734 126* 129* 206 209* 
GNS = fetter YJ 105 566 
HT = 1 134 559 
IOTRD 003234 273 3344 
1OTVEC= 000020 1 
KWBASE 001260 544 91* 92s 142 
KWONT 101272 624 100* 146 181 
KwGO (103504 141 4004 
KWOFF 001246 464 92 

004172 144 180 5104 
LDOICH 004122 439 4964 
LF = 12 134 559 
LOOP 002072 107 113 128 1324 257 
MDASH 004337 449 5204 
MD IF 604362 468 5228 
MNCMAP 004635 210 5294 
MPRMP 004401 46 5234 
MSE 004343 456 477 5214 
MTCMP 004412 466 5244 
NBEXT 001310 714 267* 309* 316 327 
NIPRI 004271 175 5154 

I 242 298 5144 

OUTADR 001312 72# 213% 235 242* 
OUTBIN 002564 238 239 240 241 2524 
PIRQ = 177772 134 
PIRQVE= 000240 134 
PRO = 000000 134 
PR1 = 000040 134 
PR2 = 000100 134 
PR3 = 000140 134 
PR4 = 000 134 
PRS = 000240 134 
PR6 = 000 134 
PR7 = 000340 134 
PS = 177776 134 
PSW = = 177776 134 
PWRVEC= 000024 134 
QUESAD 004423 114 5254 
QUESMP 004534 122 527A 
RDCHR = 104407 111 115 123 558 5664 
RDLIN = 104410 5664 
RESVEC= 1 134 
SETMNC 005025 110 532 
SPACE1 004355 237 254 5194 
SSPACE 004332 447 51 
STACK = 0011 134 84 
STKLMT= 177774 134 

001140 42" 84* 
SWREG 001320 75a 84 
SwO. = 000001 134 
swOO = 000001 134 
SwO1 = 000002 134 
SWO2 = 000004 134 
SwO3 = 000010 134 
Sw04 = 000020 134 





ee 


i 
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SwOS = 000040 134 

SwO6 = 000100 134 

SwO7 = 000200 134 

SswO8 = 000400 134 

SwO9 = 001000 134 

Swi = 000002 134 

Sw10 = 002000 134 

SwW11 = 004000 134 

Swi2 = 010000 134 

SW13_ = 020000 134 

SW14 = 040000 134 

Sw15 = 100000 134 

SW2 = 000004 134 

SWw3 = = 000010 134 

SW4 == 000020 134 

SWS == 000040 134 

Sw6 = 000100 134 

SW7 == 000200 134 

SW8 = 000400 ‘34 

Sw9 = 001000 | 3a 

TBITVE= 000014 134 

TCHANE 004116 4914 

TCHANL 003630 306 4398 

TEMP 001306 70# 265* 310* 
TEST 002710 132 140 149 157 165 2614 
TKVEC = 000060 134 558* 

TPVEC = 000064 134 

TRAPVE= 000034 134 84* 

TRTO 003314 334* 335* 336 340 3504 
TRTIVEC= 14 134 

TYPBN = 104406 253 5664 

TYPDS = 104405 257 5664 

TYPE = 104401 105 110 114 122 174 175 176 180 184 188 192 210 234 


254 257 288 289 291 295 298 321 322 324 446 
476 489 558 559 561 562 563 5664 


186 190 194 295 301 448 475 5664 
300 340* 


270 284* 292 ; 


Qe 341* 394* 400 404* 405° 411* 412* 
440* 441 450* 1 496 


484* 485 
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| SCHARC 007436 559ms 
| SCKSWR= teeeere 566 
i\SCMTAG 001100 428 84 
$cmM3 = 000000 424 
SCNTLC 007044 5584 
SCNTLG 007056 5584 
SCNTLU 007051 5584 
C 001212 42a 
SCRLF 001161 424 174 234 246 288 321 446 558 559 
SOBLK 010104 5624 
SDEVCT 001174 424 
EVM 001242 42 
SDOAGN 2664 2574 
SDTBL 010074 5624 
002654 105 2574 
SENDCT 002622 2578 
SE 002673 2574 
SENULL 002670 2574 
SENV 001204 42a 559 564 
SENVM 001205 42m 84 106 202 559 564 
SEOP 002576 208 247 2574 
SEOPCT 002614 84* 2574 
SERFLG 001103 42 
RMAX 001115 42 
SERRPC 001116 4on 
SERRTB 001246 42a 
SERTTL 001112 42a 
SETABL 001204 424 
SETEND 001246 41 42a 
SFATAL 0011 424 64* 
SFFLG 010434 5644* 
SFILLC 001156 42a 59 
SFILLS 001155 424 559 
001120 424 
SGDDAT 001124 42k 
$SGET42 002644 2574 
SGTSWR= *xenee 566 
= 000000 12 
$HIBTS 001000 414 
SICNT 001104 42a 
SINTAG 001135 42a 
SITEMB 001114 42a 
F 001162 42a 558 559 
SLFLG 010433 5644* 
$SLPADR 001106 42a 
SLPERR 001110 42a 
1 001216 424 
SMADR2 001222 428 
SMADR3 001226 424 
SMADRS 001232 42a 
SMAIL 001164 41 428 84 559 
SMAMS1 001214 42a 
SMAMS2 001220 42a 
SMAMS3 001224 42a 
SMAMS4 001230 42a 
SMBADR 001002 41a 
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SMFLG = 010432 564a* 
'SMNEW 007074 5584 
SMSGAD 1200 42 564* 
SMSGLG 001202 428 564* 
SMSGTY 001164 4on 564* 
SMSWR 007063 5584 
SMTYP1 001215 42a 
SMTYP2 001221 42a 
SMTYP3 001225 428 
SMTYP4 001231 428 
SNULL 001154 428 559 
SOCNT 007664 5614* 
007666 5614 
SPASS 001172 424 84+ 257* 286 318 
SPASTM 001006 414 
001160 42a 558 559 
SRDCHR 006454 5584 566 
SRDDEC= «eeeee 566 " 
SRDLIN 006544 5584 566 
SRDOCT= **eeee 5 
SRDSZ = 0 5584 
SRTNAD 002666 2574 
SR2A = exeenee YU 566 
SSAVRE= **eee8 YJ 566 
$SE TUP= 2 774 84 105 257 558 
$SSTUP = 177777 77# 
SSVPC = 000204 394 
S$SWR = Sa 12 42 84 257 
SSWREG 001206 42a 84 
STESTN 001170 424 
KB 001146 42 558 559 
STKCNT 006136 558a* 
STKINT 006204 89 5584 
STKQEN= 2 5584 
S™KQIN 006140 558A « 
$TKQOU 006142 5584* 
$TKQSR 006144 5584 
$TKS 001144 42a 558* 559 
00625 


88« 559 564 566 





oe 


' 


MA INDE C=11=CVMNF = 


CVMNFC P11 


000000 
007665 


= 010716 
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0017000 
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5614 566 
5614 566 


wt 204 31 
559 5624 5644 
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328 364 394 404 414 
5694 
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1054 


257 


SEQ 0046 


558" 
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1054 


562 564 
562 564 


558 
84 
311 313 455 473 480 486 


A 41 42 257 558 559 561 562 563 564 566 


a 
: 
eeceereveedeereeiee 


257 
105 


448 475 


Renee 
= QDR as at BR Rs as 
WASLSS Lawes ey yovevererys 


4 4 


¥ 
8 


558 


VLLLL LL kas 


pe 
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SSPAC oR 
on 
. STRAP oH 566 
.STYPB 8a 563 
.STYPD 108 562 
$TYPE of 559 
.STYPO ea 561 


- ABS. 010716 000 OVR RW ABS GBlL OD 


ERRORS DETFCTED: 0 


CVMNF C , CVMNF C/ CRF =C VMNF C 
RUN-TIME: 17 4 .6 SECONDS 
RUN-TIME RATIO: 374/22=16.3 
CORE USED: 25K (49 PAGES) 





